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COMPUTER  SIMULATION  MODEL  OF  AN  AMMUNITION  SUPPLY  POINT: 


ISSUE  OPERATIONS 


INTRODUCTION 

A  topic  of  interest  to  the  US  Army  Miaaila  and  Munltiona  Cantar  School 
(USAMMCS)  and  othar  mambara  of  tha  US  Army  logiatica  community,  la  tha 
avaluatlon  of  changaa  in  TOE,  training  and  doctrine  and  thalr  affacta  upon 
ammunition  supply  at  tha  company  laval.  At  tha  request  of  the  USAMMCS  and 
in  support  of  tha  US  Army  Human  Engineering  Laboratory  Forward  Area  Supply 
&  Transfer  (USA  HELFAST)  studies,  the  US  Army  Human  Engineering  Laboratory 
(USAHEL)  developed  a  stocheutlc  computer  simulation  modal  for  tha  issue 
operations  of  an  Ammunition  Supply  Point  (ASP).  Tha  model  is  in  a  form 
useful  for  tha  study  of  the  affects  of  personnel,  organisation,  equipment 
and  physical  layout  upon  mission  performance.  The  ASP’s  are  direct  support 
supply  points  normally  positioned  in  tha  Corps  area  near  tha  rear  boundary 
of  combat  divisions.  The  using  units  pick  up  ammunition  in  their  own  ve¬ 
hicles.  The  ASP's  arc  routinely  supplied  on  a  scheduled  basis  from  storage 
depots  in  the  rear  area. 

The  USA  HELFAST  field  tests  determined  time  distributions  for  ammuni¬ 
tion  handling  (i.e.,  loading,  transfer  and  unloading)  involving  material 
handling  equipment  for  different  ammunition  types,  cargo  carriers  and 
weather  conditions.  The  simulation  modal  uses  the  time  distributions  from 
the  field  tests  for  the  ammunition  handling  tasks  within  the  ASP.  The  model 
has  been  used  to  study  ASP  operations  for  critical  areas  which  require  fur¬ 
ther  testing  and  evaluation.  The  model  could  be  used  to  evaluate  changes 
in  TOE,  training  and  doctrine.  Furthermore,  the  model  is  easily  extended 
to  other  areas  of  the  US  Array  logistical  system  in  future  studies  by  the 
USAHEL  and  other  members  of  the  US  Army  logistical  community. 

The  simulation  program  is  written  in  the  Fortran  language  and  uses  the 
GASP  simulation  programs.  The  model  simulates  an  ammunition  company  in  sup¬ 
port  of  14  of  29  battalions  of  a  reinforced  Armored  Division  during  the 
second  day  of  a  determined  defense.  The  ammunition  expenditures  are  at  the 
maximum  rate,  and  the  supported  units  replace  their  commodity  loads  by 
truck  convoys  back  to  the  ASP.  The  model  processes  the  convoys  and  trucks 
through  the  various  sections  of  the  ASP  as  they  arrive  from  the  supported 
units.  Statistics  are  collected  during  the  simulation  on  the  queues,  ser¬ 
vice  times  and  idle  times  for  each  service  point;  i.e.,  vehicle  Inspection, 
office,  field  storage  units,  etc.,  within  the  ASP.  The  ammunition  handling 
times  are  computed  from  normal  [random]  distributions.  The  simulation  is 
run  for  a  24-hour  period.  The  simulation  can  be  repeated  several  times  for 
a  Monte-Carlo  analysis. 

The  program  simulates  the  operations  of  an  TOE  9-38-H3  Ammunition 
Handling  Company  at  strength  level  1  and  equipment  level  1  as  an  acceptable 
baseline.  Ammunition  Company  operations  follow  FM  9-38,  Conventional 


3 


Ammunition  Unit  Operations,  June  1970,  with  Change  1,  23  Mareh  1973  and 
Change  2,  10  September  1976.  Savaral  nonconbat  aaaantlal  opatationa,  naadad 
only  for  paaea  tiaa  accountability,  wara  dalctad  following  conaultation 
with  USAMMCS  and  U8AHBL  (retired)  military  personnel. 

Ammunition  aupply  doctrine,  aa  defined  in  FM  9*6  (under  reviaion),  haa 
each  unit’s  resupply-convoy  move  from  the  battalion  trains  area,  via  the 
Division  Ammunition  Office  (DAO),  to  the  ASP.  Return  to  the  battalion 
trains  is  by  tha  most  direct  route.  The  operation  of  the  DAO  was  not 
modeled  in  this  report  aa  it  la  atrictly  clerical,  but  can  be  added  later. 
Doctrine  statae  that  a  division  is  supported  by  two  ASP' a  and  tha  modal  ASP 
aupports  half  a  division  plus  half  tha  attached  reinforcing  battallone.  Tha 
ASP  is  staffed  by  one  Ammunition  Company,  TOE  9-38H3. 

Tha  ammunition  aupply  demand  placed  on  tha  ASP  la  determined  by  the 
using  units;  l.e.,  tha  combat  and  combat  support  battalions  and  their  ex¬ 
penditures.  Tha  augmented  armored  division  is  described  in  Table  2  of  Ap¬ 
pendix  F,  Munitions  Syatam  Support  Structure,  Volume  1,  Final  Draft,  April 
1978,  by  the  USAMMCS.  A  combat  engineer  battalion  was  added  to  the  augmen¬ 
tation,  and  aviation,  air  defense  and  engineers  wars  added  within  the  divi¬ 
sion.  Table  1  lists  the  number  and  type  of  units  supported,  tha  resupply 
vehicles  and  the  number  of  convoys  over  a  24-hour  period. 


TABLE  1 


Units  Supported 


Type-Battalion 

No. 

Resupply  Vehicle 

Trucks/ 

Convoy 

Number  of  Convoye 
(24-Hour  Period) 

1.  Mach  Inf 

3 

GOER 

2 

2 

2.  Tank 

3 

GOER 

3 

2 

3.  155  howltser 

3 

GOER 

12 

3 

4.  8-inch  howltser 

2 

GOER 

8 

3 

5.  ADA  (Chaparral) 

1 

5-ton  truck 

5 

1 

6.  Combat  Engr 

1 

2-1/2-ton  truck 

13 

4 

7 .  Combat  Avn 

_1 

5-ton  truck 

6 

_2 

Totals! 

14 

34 

NOTE i  34  convoys  equals!  186  GOERS 

17  5-ton  trucks 
52  2-1/2-ton  trucks 
2 Si  vehicle  per  24  hours 


NOTE! 


Distance  [in  km] 
To  ASP 
From  ASP 


from  battalion  trains  to  ASPt 

-  39  to  67 

-  30  to  55 
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The  ASP  and  supported  units  were  located  In  the  following  combat 
scenario:  The  terrain  for  modeling  and  the  troop  list  were  based  on  SCORES, 
Europe  I,  Sequence  2  Alpha.  Since  SCORES  is  not  primarily  logistical  tn 
orientation,  there  were  further  alterations.  The  US  Army  Materiel  Systems 
Analysis  Activity  (AMSAA)  was  consulted  to  locate  battalion  trains  for  all 
battalions  in  the  table.  The  covering  force  has  been  driven  in  and  all 
troops  were  positioned  on  or  behind  FEBA  for  the  second  day  of  a  determined 
defense.  AMSAA  also  sited  the  Division  Ammunition  Office  (DAO),  the  divi¬ 
sion  airfield,  and  the  two  ASP's  in  support  of  the  division.  All  personnel 
involved  in  these  modifications,  both  in  the  Tactical  Operations  Analysis 
Office  of  AMSAA  and  in  USAHEL,  are  retired  military. 

The  supply  demand  on  the  ASP  is  determined  by  the  transportation  re¬ 
quest  presented  by  a  using  unit's  convoy,  and  the  number  of  times  each  unit 
sent  out  a  resupply  convoy  during  the  24-hour  period.  The  transportation 
request  is  determined  by  three  factors:  (1)  rate  of  expenditure  (consump¬ 
tion  data)  for  a  determined  defense,  (2)  basic  load  of  the  unit,  end  (3) 
transportation  available  within  the  unit  for  resupply. 

The  consumption  data  by  unit  type  is  extracted  from  IIS  Array  Logistics 
Planning  Factors  (JSCAP  FY  80),  and  obtained  from  the  Operations  Analysis 
Directorate,  Planning  Factors  Management  Division,  US  Army  Logistics  Center 
(USALC).  The  size  of  the  basic  load  is  defined  primarily  in  FM  101-10-1, 
July  1976.  The  transportation  assumed  available  for  ammunition  resupply 
purposes  is  listed  in  the  unit  TOE. 

A  few  ground  rules  for  assembling  convoys  were  set  up  after  consulting 
with  combat  arms  and  combat  support  officers  at  Aberdeen  Proving  Ground. 
The  unit  uses  a  minimum  number  of  daily  convoys  to  the  ASP  so  as  to  main¬ 
tain  command  control  with  reliable  convoy  commanders  and  able  map  readers. 
One  replenishes  the  basic  load  when  25-30X  is  expended.  Combat  aviation  re¬ 
ceives  its  logistic  support  at  the  division  airfield  and  is  resupplied  by 
surface  means.  Project  materials  for  engineer  operations  are  drawn  about 
four  times  a  day.  These  rules  may  not  be  doctrine  but  are  validated  by  such 
diverse  considerations  ns  combat  experience,  maneuver  experience,  map  re¬ 
connaissance,  and  equipment  availability. 

Consumption  data  from  USALC  had  to  be  expanded  to  cover  bulk  allotment 
items  (as  hand  grenades  and  pyrotechnics),  project  materials  (as  mines  and 
demolitions),  and  small  rockets  and  guided  missiles.  Generally,  FM  101-10-1 
cited  previously  was  the  authority  but  Chaparral  and  Redeye  data  were  gen¬ 
erated  locally  at  four  mlssiles/Chaparral  system  per  day  and  two  missiles/ 
Redeye  team  per  convoy.  No  day  of  fire  or  per  day  of  supply  figure  for  air 
defense  missiles  has  been  officially  defined. 

The  physical  layout  of  the  ASP  is  determined  by  the  terrain  and  the 
quantity  and  types  of  ammunition  stored  in  support  of  the  using  units.  The 
ASP  layout  usually  consists  of  at  least  the  following  sections:  (Figure  1) 
vehlcla  assembly  area,  ASP  operations  control  office,  three  ammunition 
storage  sections,  and  a  vehicle  holding  area,  as  well  as  segregation  and 
demolition  areas.  The  three  storage  sections  contain  the  same  types  and 
amounts  of  ammunition  as  practicable.  One  section  is  used  to  Lssue  and 


Vehicle  - 

holding  ^ _  Convoy 

area  arrives 


Figure  1.  Layout  of 


store  ammunition  and  the  other  two  for  Inventory  and  maintenance.  These 
operations  are  rotated  on  a  dally  basis  among  the  three  sections. 

The  map  layout  is  a  "school  solution"  to  Problem  Sheet,  "Storage  of 
Ammunition  in  the  Theater  of  Operations,"  USAMMCS,  file  number  C20E-02BP03, 
map  sheet  AA-2106.  Fifty-five  field  storage  units  (FSU)  are  located  on  the 
road  net.  Storage  is  open  or  hasty.  An  ASP  should  stock  about  8-5  days  of 
Issue  by  doctrine.  The  Issue  day  programmed  la  on  the  high  side,  so  3  days 
stockage  was  planned.  When  the  TR's  described  above  are  totaled  for  3  days, 
a  stockage  of  5200  tons  Is  determined.  This  was  divided  among  63  DODAC 
lines  to  be  found  In  all  six  catagorias  of  storage.  The  most  compact  stor¬ 
age  by  regulation  it,  described  in  Table  2. 


TABLE  2 

ASP  Storage  Limits 


Storage  Category 

Tons 

Max.  Tons  per  FSU 

FSU  Required 

A 

436 

400 

2  (1) 

B 

3594 

400 

9 

C 

217 

300 

2  (1) 

D 

54 

400 

2  (1) 

E 

417 

50 

10 

F 

394 

60 

_7 

Totals 

5112 

32 

Applying  a  rule  that  every  DODAC  line  would  be  placed  In  two  separate 
FSU  locations  for  dispersion,  the  number  of  FSU  used  for  the  63  DODAC  lines 
became  46  with  9  being  empty  for  this  simplified  program.  The  mileage  of 
the  loop  within  the  ASP  Is  about  12.5  km  (7.5  miles)  plus  some  spurs,  so 
the  old  quantity-distance  rule  of  800  to  1000  tons/mile  of  road  is  easily 
met. 


It  was  necessary  to  construct  a  master  inventory  deck  of  DODAC  lines 
and  a  locator  file  to  be  used  to  make  out  the  DA  Form  3151-R,  the  Ammuni¬ 
tion  Stores  Slip,  which  guides  the  loading  of  the  individual  vehicles  (2). 

Supply  Bulletin,  SR  38-26,  Ammunition  Supply  Rates,  contains  about  150 
DODAC  lines.  An  ASP  will  stock  most  of  these  (except  perhaps  some  pyrotech¬ 
nic  and  engineer  demolition  items)  plus  a  few  rockets  and  small  guided  mis¬ 
siles  not  Included  in  the  supply  bulletin.  The  master  inventory  deck  con¬ 
structed  has  about  130  lines,  half  of  which  will  he  inactive  for  play  pur¬ 
poses.  Lot  numbers  were  ignored  in  maintaining  the  master  Inventory.  The 
locator  deck  considers  lot  numbers  only  in  the  cases  of  major  caliber  tank 
gun  ammunition;  semifixed  artillery  ammunition;  propelling  charges  for 
separate  loading  ammunition;  and  guided  missiles.  This  choice  was  made  pri¬ 
marily  for  reasons  of  performance  (ballistics).  Size  of  lot  played  was 
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determined  by  asking  the  HAM  Division  of  AMSAA  for  war  reserve  lot  else 
data  on  the  types  desired  and  filling  the  gape  by  inquiry  of  the  US  Army 
Missile  Command.  The  locator  deck  was  considered  split  in  two  with  about  an 
equal  number  of  cards  in  each  subdeck.  Since  the  file  Included  only  active 
DODAC  lines  in  the  ASP,  there  were  a  total  of  150  cards  or  about  7  5  per 
subdeck. 


The  sequences  of  operations  for  issuing  ammunition  are  listed  in  Table 
3,  which  shows  the  flow  from  the  supported  battalions  through  the  DAO  to 
the  ASP,  and  back  to  the  supported  units. 


TABLE  3 


Model  Sequence 


1*  Convoy  leaves  Bn  trains 

2.  Stops  at  DAO 

3.  Continues  to  ASP 

4.  Inprocesses  paperwork 

5.  Vehicles  proceed  to  pads 

6 .  Vehicles  loaded 

7.  Return  to  Assembly  Area 

8.  Outprocess  paperwork 

9.  Return  to  Bn  trains 


The  procedures  for  issuing  ammunition  begins  when  an  ammunition  convoy 
of  the  using  unit  arrives  at  the  ASP.  The  convoy  is  directed  to  the  vehicle 
holding  area  by  ASP  traffic  control  personnel.  The  vehicles  are  Inspected 
by  technical  support  personnel  for  compliance  with  safety  standards. 

The  convoy  commander  proceeds  to  the  ASP  operations  office  where  he 
submits  his  transportation  order  for  ammunition  to  the  chief  clerk  In  the 
stock  records  section.  The  order  is  checked  against  the  stock  location  and 
lot  records  to  determine  the  Issuing  storage  magazines.  The  stock  clerks 
prepare  an  ammunition  stores  slip  for  each  vehicle  In  the  convoy.  The 
stores  slip  lists  the  DODAC  and  FSN,  the  lot  number,  the  number  of  rounds 
and  containers  and  the  storage  locations  from  which  the  items  are  to  be 
issued.  The  chief  clerk  assigns  an  ammunition  checker  to  each  truck  or 
group  of  trucks  going  to  the  same  storage  magazines.  The  clerk  arranges  for 
the  labor  and  material-handling  equipment  (MHE)  required  for  loading. 

The  checker  assigned  to  each  vehicle  or  group  of  vehicles  guides  the 
driver(s)  to  the  proper  storage  locatlon(s).  The  checker  supervises  the 
loading  of  the  ammunition  and  verifies  the  type,  lot  number,  condition  and 
quantity  received.  When  loading  is  complete,  the  vehicle  proceeds  to  the 
vehicle  assembly  area  where  it  waits  for  the  remaining  vehicles  in  the 
using  unit's  convoy.  The  ammunition  received  is  verified  at  the  ASP 
operations  office.  The  stores  slips  are  posted  to  the  stock  records.  Once 
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verification  la  completed  for  all  vehicles,  the  loaded  convoy  is  released 
from  the  ASP. 

So  far  aa  operational  play  was  concerned,  the  company  personnel  were 
split  into  two  12-hour  shifts.  This  allowed  the  ASP  office  to  be  adequate¬ 
ly  manned  for  the  clerical  operations,  the  MHE  to  be  manned  around  the 
clock,  and  left  45  men  from  the  magazine  platoons  available  for  use  as 
checkers  and/or  labor  on  each  of  the  two  shifts.  All  truck  drivers  from  the 
drawing  unit  were  considered  available  as  labor.  Checkers  were  considered 
as  labor  If  less  than  10  boxes  were  to  be  hand  loaded  at  any  one  Field 
storage  unit  (FSU)  location. 

Internal  play  considered  the  ASP  to  be  fully  stocked  at  time  aero 
(start  of  the  simulation).  Only  the  leaue  procedure  was  played.  No  resupply 
or  warehousing  (unlikely)  were  played.  In  the  office,  no  inventory  adjust¬ 
ments  were  played.  Neither  was  the  daily  status  of  stocks  report  played.  An 
an  addendum  to  the  TR,  the  using  unit  was  considered  to  bring  with  it  the 
desired  loading  of  each  vehicle  in  the  convoy  (commodity  loaded),  so  that 
the  ASP  office  did  not  have  to  figure  that  out.  Neither  did  the  ASP  office 
keep  any  book  on  Issues  against  available  supply  rate  (ASR)  by  unit.  MHE 
availability  was  1007!.  The  24  MHE  assigned  to  the  Ammunition  Company  are 
assigned  to  one  FSU  or  a  small,  group  of  adjacent  (bloc  of)  FSU.  MHE  do  not 
move  long  distances  between  work  sites.  The  program  is  such  that  If  two  or 
three  MHE  are  assigned  to  a  bloc  of  FSU,  they  are  utilized  In  sequence  by 
arriving  vehicles  before  formation  of  a  queue  of  vehicles  waiting  t:o  load; 
however,  no  more  than  two  MHE's  may  be  loading  at  the  same  FSU  at  the  same 
time. 


The  ASP  has  a  vehicle  holding  area  for  arriving  convoys  to  wait  while 
Inprocessing  Is  accomplished  and  a  separate  vehicle  holding  area  for  the 
loaded  vehicles  to  reassemble  into  unit  convoys  before  returning  to  their 
battalion  trains  areas. 

In  summary,  the  simulation  model  including  the  imposition  and  layout 
of  the  ASP,  the  supported  units  and  the  reBupply  demand  on  the  ASP  have 
been  described.  In  the  next  section,  the  resupply  procedures  used  in  the 
model  are  described  in  greater  detail.  Finally,  the  "Results"  section  des¬ 
cribes  the  statistical  results  of  the  simulation. 


METHOD 

The  operations  of  the  AGP  are  simulated  by  the  flow  of  customers  be¬ 
tween  service  facilities  from  the  input  side  (i.e.,  convoy  arrival)  to  the 
output  side  (i.e.,  convoy  departure).  The  cuscomer  units  vary  from  facility 
to  facility,  and  in  most  cases,  the  customer  must  have  reached  prior  sta¬ 
tions  before  passing  to  the  next  one.  The  customer  enters  the  service 
facility  when  it  is  not  busy.  Otherwise,  the  customer  joins  a  queue  and 
waits  until  he  has  moved  up  to  the  service  point  on  a  first-in,  first-out 
queue  discipline  basis. 
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The  incoming  vehicles  ere  inspected  in  the  holding  area.  The  convoy 
commander  passes  to  the  inprocessing  office  with  his  paperwork.  There,  the 
TR  is  processed  in  turn  by  the  head  clerk,  a  master  file  clerk  and  the 
locator  file  clerk.  The  clerks  assign  the  trucks  (and  chits)  and  any  needed 
laborers  and  checkers.  The  checker  leaves  the  holding  area  with  the  vehi¬ 
cles  (once  they  complete  inspection)  and  laborers  for  the  magazine  area. 
The  vehicles  are  loaded  at  the  appropriate  FSU  by  the  laborers  and/or  MHE's 
in  the  magazine  section.  The  loaded  trucks  are  released  to  the  convoy  com¬ 
mander  after  the  operations  office  has  verified  the  issued  ammunition. 

The  above  customer  actions  and  service  facilities  have  been  separated 
into  the  following  time-oriented  sequence  of  steps: 

1.  The  battalion  dispatches  a  convoy  to  the  ASP  via  the  DAO.  The 
departure  time  is  a  random  variable  with  a  spread  of  30  minutes  centered 
about  the  convoy  departure  times  given  by  Table  1.  Initially,  all  units 
forward  a  convoy  between  BMNT  (beginning  morning  nautical  twilight)  and 
BMNT  plus  30  minutes. 

2.  The  arrival  time  of  the  convoy  at  the  holding  area  of  the  ASP 
is  computed  from  the  travel  distance  and  a  random  travel  speed  of  30  km/hr 
plus  or  minus  two  standard  deviations  (ISD)  for  daylight  or  15  +  2SD  km/hr 
for  nighttime. 

3.  The  inspectors  from  the  ASP  make  a  safety  check  of  the  incoming 
vehicles.  The  average  inspection  time  is  5  minutes. 

4.  The  convoy  commander  proceeds  immediately  upon  his  arrival  to 
the  ASP  office  with  his  TR  and  truck  loading  papers.  The  travel  time  is 
fixed. 

5.  The  TR  is  processed  through  the  ASP  office  in  several  stages: 

a.  The  chief  clerk  scans  tha  TR  and  associated  papers  for  gen¬ 
eral  completeness. 

b.  The  master  file  clerk  takes  the  TR  and  posts  as  a  debit  to 
the  appropriate  DODAC  cards  in  the  master  Inventory. 

c.  The  locator  deck  clerks  receive  the  TR  and  truck  loading 
addendum  from  the  master  inventory  clerk.  The  truck  loading  addendum  has 
been  written  up  by  the  unit  by  DODAC  in  terms  of  pallets  and/or  boxes  for 
each  truck.  Using  this  addendum  (and  the  TR),  the  locator  clerks  write  the 
Individual  DA  Form  3151  (Ammo  Storage  Slip)  for  each  truck,  considering  lot 
numbers  where  appropriate  and  FSU  location.  They  alao  post  the  issues  on 
each  DODAC  locator  card  by  lot  number  and  FSU.  The  two  clerks  work  as  par¬ 
allel  but  independent  service  points  as  directed  by  the  master  file  clerk. 

d.  The  locator  desk  clerk  passes  the  sheaf  of  Forme  3151  to  the 
noncommissioned  officer  (NCO)  in  charge  of  assigning  checkers  and  laborers. 
The  assignment  NCO  scans  the  deck  of  Forms  3151  and  assigns  a  checker  to 
one  or  more  trucks  (one  or  more  Forms  3151)  and  also  assigns  zero  to  two 
laborers  to  the  checker. 
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6.  The  checker,  truck(a),  end  laborers  proceed  to  the  first  FSU  in 
his  stack  of  Toros  3151  (a  known  measured  mileage)  at  15  +  2SD  km/hr  for 
daylight  or  8  +  2SD  km/hr  for  nighttime • 

7.  Using  MHE  available  at  the  FSU,  pallets  are  loaded.  Stochastic 
loading  times  are  used.  Using  laborers  available,  individual  boxes  or  con¬ 
tainers  are  loaded.  Four  minutes  per  laborer  per  box  was  used  (7  tens  11ft- 
man/day).  Loading  la  sequential  for  a  checker.  Queues  form  when  MHE  is  not 
available.  If  labor  loading  can  be  done  while  awaiting  MHE,  it  is  done. 
Upon  completion  of  loading  at  first  FSU,  the  checker  with  his  trucks  and 
laborers  proceeds  to  the  next  FSU  and  repeats  process  (steps  6  and  7). 

8.  The  checker,  truck(s),  and  laborers  proceed  to  the  convoy  reas¬ 
sembly  area  (known  mileage)  at  15  +  2SD  km/hr  (daylight). 

9.  Checker  and  laborers  walk  to  ASP  office  (15  minutes).  Checker 
turns  sheaf  of  annotated  Forma  3151  over  to  ASP  office  chief  clerk.  (It  is 
assumed  there  are  no  major  discrepancies  and  no  need  to  correct  inventory 
or  locator  files.)  Checker  reports  to  assignment  NCO.  Laborer  reports  to 
assignment  NCO.  Both  are  picked  up  in  available  pool. 

10.  Convoy  commander  picks  up  checker  (and  laborer)  with  last 
truck(s)  arriving  at  reassembly  area  and  drives  him  to  ASP  office  (1  km  at 
15  +  2SD  km/hr).  Checker  and  laborer  same  routine  as  step  12. 

11.  Convoy  commander  clears  TR  with  ASP  office  chief  clerk,  gets 
annotated  copy,  and  receipts  copy  left  at  ASP.  Returns  to  convoy  and  de¬ 
parts. 


12.  Convoy  returns  to  battalion  trains  area  by  most  direct  route 
(measured)  at  30  +  2SD  km/hr  for  daylight  and  15  +  2SD  km/hr  for  night¬ 
time.  Arrival  time  for  convoy  is  recorded. 

The  service  times  for  the  office  clerks  in  step  5  were  determined  by 
two  experienced  subjects  (retired  military  personnel)  who  timed  themselves 
while  they  processed  the  paperwork  for  each  unit.  These  times  are  consider¬ 
ed  fixed  without  random  variation  for  the  present  until  appropriate  stoc¬ 
hastic  data  can  be  collected. 

The  simulation  program  is  separated  into  two  parts,  the  user's  program 
and  the  GASP  supporting  routines.  The  user's  portion  specifies  the  customer 
traffic  flow  within  the  ASP  and  the  mechanisms  of  the  service  facilities. 
The  GASP  supporting  routines  are  called  upon  to  do  bookkeeping  tasks  such 
as  ordering  time  events,  random  number  generation,  statistical  computations 
and  preparing  summary  reports. 

The  GASP  routines  maintain  a  file  of  ordered  time  events.  As  each  new 
time  event  is  added  to  the  file  by  the  user's  program,  the  file  is  reorder¬ 
ed  according  to  the  time  of  occurrence.  The  file  stores  attributes  as  well 
as  the  time  of  occurrence  of  the  event.  These  are  an  event  coding  denoting 
what  type  of  event  has  occurred,  and  the  using  unit's  convoy  and  If  appro¬ 
priate,  the  truck  or  checker  for  which  the  service  event  took  place.  These 
attributes  are  assigned  by  the  user's  program  and  are  stored  hy  the  GASP 
routines . 
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Ones  program  control  is  pasted  to  tha  GASP  support  routines,  the  next 
time  event  Is  removed  from  the  file  along  with  the  associated  attributes. 
The  GASP  routine  returns  control  to  the  user's  subroutine,  EVENTS,  along 
with  the  event  coding.  The  subroutine.  In  turn,  calls  upon  tha  appropriate 
user's  subroutine  to  service  the  event  according  to  the  event  code.  The 
event  attributes  of  the  convoy  and  truck  Identifiers  are  used  by  the  sub¬ 
routines  to  locate  the  Information  needed  for  servicing.  Table  4  lists  the 
various  events  with  their  coding  which  can  occur  In  this  simulation. 


TABLE  4 

Simulation  Events 


Code  Event  Figure 


1.  Convoy  leaves  unit 

2.  Convoy  arrives  at  holding  area  .  2 

3.  Safety  Inspector  completes  vehicle  inspection  ....  3 

4.  Convoy  commander  at  inprocasslng  office  .......  4 

5.  Chief  clerk  completes  TR  service  ...........  5 

6.  Master  file  desk  completes  service  .  .....  6 

7.  Locator  file  clerk  completes  service  .  7 

8.  Checker  released  from  holding  area  with  trucks  ....  8 

9.  Checker  completes  road  trip  to  ammunition  pad  ....  9 

10.  Loading  service  completed  at  ammunition  pad  .....  10 

11.  Checker  arrives  at  convoy  assembly  area  .  11 

12.  Checker  arrives  at  operations  office  .  12 

13.  Convoy  commander  at  outprocesalng  office  .  .  13 

14.  Clerk  completes  outproceeslng  service  ........  14 

15.  Convoy  arrives  back  at  unit 


Tha  figures  (2  through  14)  referenced  by  Table  4  show  flow-charts  of 
the  steps  for  the  processing  of  the  events.  Each  figure  corresponds  to  a 
subroutine  In  the  program  which  processes  one  of  tha  time  events.  In  all 
cases,  the  subroutine  either  adds  the  unit  to  be  serviced;  i.e.,  convoy 
representative  or  trucks,  to  a  waiting  queue  or  computes  a  service  time  for 
the  unit  and  adds  tha  service  to  the  event  file. 

The  table  and  figures  show  that  the  program  "walks"  the  convoy  repre¬ 
sentatives  and  their  trucks  through  tha  ASP  starting  at  the  holding  area 
and  ending  with  the  outproceeslng.  The  pattern  of  passing  the  next  time 
event  to  the  user's  program  for  servicing  and  the  addition  of  a  new  event 
to  the  file  is  repeated  until  the  file  is  depleted  of  all  events.  At  this 
time,  the  GASP  routine  computes  the  statistics  of  the  simulation  as  called 
for  by  the  user’s  program.  The  next  section  lists  the  statistics  and  re¬ 
sults  collected  for  the  simulation  problem  described  earlier. 
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Figure  2.  Macro-flow  chart  for  event  2. 
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Figure  3.  Macro-flow  chart  for  avant  3. 


Figure  4.  Macro-flow  chart  for  event  4. 
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Figure  5.  Macro-flow  chart  for  event 
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Figura  7.  Macro-flow  chart  for  evant  7. 


Figure  8.  Macro-flow  chart  for  event  8. 
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Figure  10.  Macro-flow  chart  for 
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Figure  10a.  Macro-flow  for  "find  next  stop (A)" , 
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Figure  10b.  Macro-flow  for  "assign  MHE(b)". 
Figure  10.  Macro-flow  chart  for  event  10. 


Figure  11.  Macro-flow  chart  for  event  11. 
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Figure  13.  Macro-flow  chart  for  event  13. 
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RESULTS  AND  DISCUSSION 


The  statistics  collected  by  the  simulation  program  ara  llatad  In 
Tablaa  5,  6  and  7.  Table  5  list*  the  obaerved-tlme  statistical  variables. 
The  average  value  and  standard  deviation  are  computed  for  these  variables . 
Table  6  lists  the  tlma-perslstent  numeric  statistical  variables  for  which 
the  average  value,  standard  deviation,  maximum  and  minimum  values  are  com¬ 
puted.  Table  7  lists  queue  summary  statistical  variables.  The  computed 
values  are  (1)  the  average  element  (Ave  Queue),  (2)  the  average  wait  time 
before  service  (Ave  Walt),  (3)  the  average  service  time  (Ave  Service)  and 
(4)  the  fraction  of  time  that  the  facility  Is  Idle  (Fraction  Idle). 


TABLE  5 

Observed  Tima  Statistical  Variables 


(a)  Supply  point  input  to  output  (ASP)  - 
-W/CN,  time  convoy  within  ASP 

-A/CN,  difference  In  convoy  arrival  times 
-D/CN,  difference  In  convoy  departure  times 

(b)  Inprocessing  office  (OFI)  - 

-W/CC,  time  convoy  commander  within  office 
-Q/HE,  time  TR  in  chief  clerk  (HC)  queue 
-S/HC,  service  time  of  chief  clerk 
-Q/MC,  time  TR  in  master  clerk  queue 
-8/MC,  service  time  of  master  clerk 
-Q/LC,  time  TR  in  locator  clerk  queue 
-S/LC,  service  time  of  locator  clerk 

(c)  Holding  area  (HLD)  - 

-W/TK,  truck  time  within  holding  area 
-D/CK,  difference  in  checker  departure  time 

(d)  Loading  area  (LDA)  - 

-W/CK,  time  checker  within  loading  area 

-Q/CK,  time  checker  In  FSU  queue  for  MHE  service 

-S/MH,  service  time  by  MHE 

-S/LR,  service  time  by  laborers 

-TRVP,  travel  distance  per  truck  within  LDA 

-T/CK,  travel  time  for  checker  within  LDA 

(e)  Convoy  assembly  area  (ABY)  - 

-A/CK,  difference  in  checker  arrival  times 
-W/TK,  time  truck  within  assembly  area 

(f)  Outprocesslng  office  (0F0)  - 

-W/CC,  time  convoy  commander  within  office 
-Q/CC,  time  within  clerk  queue 
-S/CC,  service  time  of  clerk 
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TABLE  6 


Tim*  Persistent  Number  Statistical  Variable! 


(a)  Supply  point  Input  to  output  (ASP)  - 

-N/CN,  number  of  convoya  within  ASP 
-N/TK,  number  of  trucka  within  ASP 

(b)  Inprocesaing  office  (OFI)  - 

-N/CC,  number  of  convoy  commanders  within  office 
-N/HC ,  number  in  chief  clerk  queue 
-N/MC,  number  in  master  clerk  queue 
-N/LC,  number  in  locator  clerk  queue 

(c)  Holding  area  (HLD)  - 

-N/SP,- number  of  inspectors  busy  in  HLD 
-N/TK,  number  of  trucks  in  HLD 

(d)  Loading  area  (LDA)  - 

-N/CK,  number  of  checkers  within  loading  area 
-N/LB,  number  of  laborers  within  LDA 
-N/TK,  number  of  trucka  within  LDA 
-N/MH,  number  of  active  MHB's  within  LDA 
-N/FS,  number  of.  active  PSU'a  within  LDA 

(e)  Convoy  assembly  area  (ABY)  - 

-N/TK,  number  of  trucks  within  assembly  area 

(f)  Outprocessing  office  (OFO)  - 

-N/CC,  number  of  convoy  commanders  within  office 
-N/OC,  number  in  clerk  queue 


TABLE  7 


Queue  Summary  Statistics 


Facility 

(a) 

Loading  area  - 

1N8P  -  Inspection  station 

(b) 

Inprocasalng  office  - 

NANC  -  chief  clerk 

MASG  -  master  clerk 

LOCC  -  locator  clerk 

CRAG  -  checker  assignments 

CO 

Loading  area  - 

FSU  -  Field  storage  unit 

MHE  -  material  handling  equipment 

<d) 

Outprocessing  office 

OUTC  -  outprocessing  clerk 

Tabic  R  lists  tha  nomenclature  of  histogram  plots  (Figures  IS  through 
21),  and  Table  9  lists  tha  nomenclature  of  plot  variables  (Figure  22) . 

The  statistical  results  for  a  24-hour  simulation  era  listed  in  Tab"  a 
10  and  11.  Table  10  lists  tha  results  of  the  observed  variables  of  Table  5 
and  the  results  for  the  tlme-parslstent  variables  of  Table  A.  Table  11 
lists  tha  statistical  results  for  the  queue  variables  of  Table  7. 

Figures  15  through  21  show  histograms  of  the  frequency  of  events  as 
listed  in  Table  9.  Figure  15  shows  a  histogram  of  the  number  of  trucks  in 
each  convoy.  Figures  16  through  21  show  the  queue  sice  of  service  facili¬ 
ties  at  the  arrival  of  the  next  element  to  be  serviced.  The  facilities  aro 
listed  in  Table  9  and  include  the  vehicle  inspection,  the  head  clerk,  the 
master  clerk,  the  locator  clerks,  the  checker  assignment  roster  and  the 
outprocessing  office  clerk. 
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TABLE  8 


Nomenclature  of  Histogram  Plots 
(Flgurss  13  through  21) 


Tsblo 


Dsserlptlon 


TKS/CONV 

IN8P/QUE 

HC/QUE 

MC/QUE 

LC/QUE 

CKA/qUE 

oc/quE 


Number  of  trucks  In  convoy 
Number  of  trucks  in  Inspection  queue 
Number  of  TR's  In  head  clerk  queue 
Number  of  TR's  in  master  clerk  queue 
Number  of  TR's  in  locator  dark  queue 
Number  of  checker-assignments  in  queue 
Number  of  TR's  in  outprocesslng  queue 


TABLE  9 


Nomenclature  of  Plot  Variables 
(Figure  22) 


Table 

Symbol 

Description 

TKS/ASP 

T 

Number  of  trucks  in  ASP 

CON/ASP 

C 

Number  of  convoys  in  ASP 

TKS/HLD 

H 

Trucks  in  holding  area 

TKS/LDA 

L 

Trucks  in  loading  area 

TKS/ABY 

A 

Trucks  in  assembly  aree 

CC/OFI 

I 

Number  of  TR's  in  Inprocessing  office 

CC/0F0 

0 

TR's  in  outprocesslng  office 

CK/HLD 

K 

Number  of  checkers  in  holding  area 

LB/HLD 

B 

Number  of  laborers  in  holding  area 

Figure  22  is  a  plot  of  ASP-variables  at  10-minute  increments  during 
the  24-hour  simulation.  The  variables  are  listed  in  Table  10  and  include 
the  number  of  convoys  and  trucks  in  the  ASP,  the  number  of  trucks  in  the 
holding  area,  the  loading  area  and  the  assembly  area,  the  number  of  TR's  in 
the  inprocessing  offices,  and  the  number  of  checkers  and  laborers  in  the 
holding  area.  The  plot  shows  the  dynamic  changes  which  occur  between  the 
service  facilities  within  the  ASP. 
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Figure  IS.  Elstogm  for  maber  of  tracks  In  each 
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Figure  19.  Histogram  for  locator  clerk,  queues  combined 
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Figure  21.  Hlstogra  for  oat  process ing  clerk 


1 

u 


a 

« 

t 


s  I 

1 « 

s  ► 

1 

I 


» 

1 


1 


£252*1222  ££  £2  2!;2S2«S2'"$ 

W  ™  ™  W  ™  W  W  W  Wl  W  M  Wi  H  Q  K  HI  ™  Q  ™  * 


|  33=5 


sas^s' 


i«2! 


II 


a 

<±s 


U 

?.5 

gl* 

§* 

u«  b 

w 

v* 

u 

a 


g  s*se 


Kii82H*8Si!E!S 

iiiiiziziizi” 


88 

««  w#r_  #  ( 

■“  *  *'  NpM*I - 

N  H 


J 


*S5|58iis*ans*8Sss5?sas2 

Sf883l5S8SS3«»S32SaR?4IC 

*«!h  '  *rf  *  *  *  *  *ii  *  "  A  *  *  '  J  •  •  •  • 


KISHIHHiHUSHUli 

ajaa  •-•  • 


m»tf>OKe«A>fgin*H'MfV£*ai- - -  __ 

fiejSalmsmaSmSgSSIS 

iAAA  *4AAtAA2AAMAiAAAAA 

K  sC  #  N  H  m  N 


* 

M 

!i 

Ul  M 

53 

S 

T 

V 

s| 

*  « 

as 


J  Jp*5»J 


***#S33 

*  •  •  • 

ia  n  m 


tflTTTTTTVIITTVjrjfV'" 

Mt*tiifcife4fait£tfc*wwc*eoeoA** 


iiiiiiiiitifiiii 

iiiiiiiiiiiiiiii 


*522222222222222 

(CnnnnnnnSnnRnEnn 

3j. 

-  •“  *  ■*  tfS  *  IA  IA  IA 


:s; 

_ J8! 

AAfAiAAA  iAAAiAAA 

M+  INN»Ni«N 


iliiiilili 

e Muiiiiisujsii: 


Ab«ttOe*4NONOninn^« 

AhP4mO«N^fAir«»p4H« 

K*^i-4^9«KiA»AkA9«>KMf 

•  ■«••••  II  II  I  I  M  » 

MiAM 


lOfrtM^IrtiXfA*****^*** 

SS885SRS5Ji&S58Si 


•  •  9  • 
*  1*  M 
♦ 


#y?  fl»i-!rf  «  /  #  * 

rtw*  N 


KMUUUUfclh  m;  s  m  u  v  u 
tmuii jMWu^br 

numimmn 

j^aeacn<«.t 

<4SnSeiT 


40 


TABLE  11 

Statlatical  Raaulca  for  Quaua  Varlablaa 


A  study  of  ths  intermediate  program  printout  shows  that  ths  issue 
operations  are  completed  within  25  hours  starting  with  the  arrival  of  the 
first  convoy  in  the  24-hour  simulation.  The  statlatics  listed  in  Table  10 
shows  that  a  convoy  arrives  at  the  ASP  on  an  average  of  every  34  minutes 
and  one  departs  every  42  minutes.  The  mean  number  of  convoys  within  the  ASP 
is  6.0  and  the  average  time  that  a  convoy  stays  within  the  ASP  is  310  min¬ 
utes.  The  mean  number  of  trucks  within  the  ASP  is  43.1 

The  mean  number  of  convoy  commanders  in  the  inprocessing  office  le  1.4 
and  the  average  time  within  the  office  is  72  minutes.  The  average  TR-ser- 
vice  time  is  2  minutes  by  the  head  clerk,  13.4  minutes  by  the  master  file 
clerk,  end  29.5  by  the  locstor  file  clerks.  The  mean  number  of  TR's  in  the 
master  clerk  queue  is  0.33,  while  those  in  the  locator  clerk  queue  is  0.19. 
The  average  stay  time  in  the  queues  is  21  minutes  and  16  minutes,  respsc- 
tlvely.  Table  11  and  Figures  17  through  19  show  that  the  average  queue 
length  at  the  arrival  of  the  next  TR  to  be  serviced  is  close  to  cero  for 
the  head  clerk  and  locator  clerks,  but  nearly  equal  to  one  for  the  master 
file  clerk.  The  clerk  positions  are  idle  96.1  percent  of  the  time  for  the 
head  clerk,  73.9  for  the  master  file  clerk  and  71.3  for  the  locator  clerks. 

The  mean  number  of  trucks  in  the  holding  area  is  15,  and  the  average 
stay  time  is  104  minutes.  Ths  average  time  for  inspection  is  4.95  minutes. 
The  mean  number  of  inspectors  busy  is  0.72.  The  sverage  queue  length  upon 
arrival  of  the  next  truck  to  be  inspected  is  4.89,  and  the  average  wait 
time  la  5.8  minutes.  Ths  inspection  facility  is  idle  82.7  percent  of  the 
time. 


The  average  number  of  checker  assignments  is  3.84  while  the  average 
wait  time  for  a  checker  assignment  is  30  minutes.  The  assignment  queue  is 
empty  only  67.0  percent  of  the  time,  The  average  time  between  checker  de¬ 
partures  from  the  holding  area  is  10  minutes.  The  average  time  between  ar¬ 
rivals  at  the  assembly  area  is  11  minutes.  The  average  number  of  checkers 
in  the  holding  area  is  12  while  the  average  laborers  is  11. 

The  mean  number  of  checkers  in  the  loading  area  la  12.  Tha  average 
time  that  a  checker  is  within  the  loading  area  is  158  minutes.  Of  this 
time,  64  minutes  are  spent  traveling  between  loading  points  (average  travel 
distance  is  11  kilometers).  The  average  loading  time  by  MKE's  is  24.6  min¬ 
utes  while  the  labor-service  time  is  23  minutes.  The  mean  number  of  labor¬ 
ers  in  the  loading  area  is  8.9.  Roughly  one-third  of  the  checkers  spent  an 
average  of  22  minutes  in  queue  waiting  for  MHE  service.  The  mean  number  of 
trucks  in  the  loading  area  is  21.9  whlls  the  mean  number  of  NHE's  loading 
the  trucks  is  3.6,  and  the  mean  number  of  active  FSU's  are  6.9.  Table  11 
shows  the  usage  statistics  for  each  MHE  and  FSU  in  ths  simulation. 

The  mean  number  of  trucks  in  the  assembly  area  is  6.0.  The  average 
time  apent  in  tha  area  is  41.0  minutes.  Ths  mean  number  of  convoy  command¬ 
ers  in  the  outprocessing  office  is  0.1  persons.  The  average  time  within  the 
office  is  5.2  minutes. 
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RECOMMENDATIONS  FOR  FURTHER  RESEARCH 


The  following  la  recommended  for  furthar  research i 

1.  Tha  computar  modal  could  ba  axpandad  to  Include  ammunition  re¬ 
ceipt  oparatlona  and  tha  DAO  clerical  oparationa. 

2.  Tha  model  aaauoaa  that  all  MHE'a  aaaignad  to  tha  ASP  are  opera¬ 
tional  during  the  almulation.  Tha  effect  of  MHE  downtime  and  maintenance 
ahould  ba  included. 

3.  The  modal  aaaumaa  no  changae  in  personnel  performance  with  aim- 
ulatlon  time.  Tha  affect  of  fatigue  and  tha  change  in  performance  with  mie- 
aion  demand  (i.e.,  aarvica  queue  lengths)  ahould  ba  included. 

4.  Tha  modal  could  ba  improved  by  generalising  tha  ASP  inproces- 
alng  and  outproceaaing  office  oparatlona  to  other  than  commodity  load 
demand. 


5.  An  non-hoetlla  tactical  environment  la  aeaumed  for  tha  ASP 
oparatlona.  Tha  poaalbillty  of  advaraa  tactical  environmente j  i.e.,  enemy 
rocket  or  air  atrikaa,  forcaa  ua  to  conaldar  tha  deployment  of  tha  ASP  into 
ATP  aub-unita.  Tha  almulation  model  could  be  uaad  to  atudy  tha  ef facta  of 
different  aaelgnmenta  in  paraonnal,  equipment  and  doctrine  upon  mlaaion 
performance. 

6.  One  intaraating  application  of  tha  almulation  modal  that  ahould 
be  lnvaatlgatod  furthar,  ia  the  uaa  of  tha  modal  and  computer-driven  graph¬ 
ic  dlaplaya  for  training  candidate  ammunition  offlcera.  Tha  trainee  could 
uaa  tha  dlaplaya  to  apaclfy  a  deployment  of  tha  ASP  on  the  terrain,  aaaign 
equlmant  and  paraonnal  to  taaka,  and  than  uaa  tha  almulation  model  to  eval¬ 
uate  hla  propoaed  aolutlon. 


CONCLUSION 

A  computer-simulation  program  modal  has  bean  developed  for  the  laaue 
operations  of  an  Ammunition  Supply  Point  (ASP).  Tha  model  would  ba  useful 
in  the  study  of  the  affects  of  changes  in  personnel,  organisation  and 
equipment  upon  ASP  mlaaion  performance.  The  model  simulates  the  TOE  9-38-H3 
Ammunition  Company  in  support  of  (ons-half)  a  reinforced  Armored  Division 
during  a  determined  defense.  Tha  ASP  layout  follows  the  USAMMCS  school 
aolutlon.  The  almulation  program  is  written  in  the  Fortran  language  and 
uses  the  CASP  simulation  programs.  Statistics  have  bean  Included  for  the 
evaluation  of  mlaaion  performance. 
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Program  Variable* 


Th*  variable  of  the  uaar's  program  ara  held  In  th*  non-GASP  labelled 
common.  The  variable*  determine  the  characteristic*  of  the  ASP  and  describe 
the  statu*  of  the  simulation.  Th*  common  block  label  areea  and  the  associa¬ 
ted  variables  ere  listed  below: 

1.  UNITS  -  common  block  area  variables  describe  the  units  support¬ 
ed  by  the  ASP: 

(a)  NUNIT,  number  of  units  supported  by  ASP. 

(b)  AT1TLE i  unit  nomenclature. 

(c)  DGO,  distance  from  unit  to  ASP  via  DAO. 

(d)  DRTN,  return  distance  from  ASP  to  unit. 

(e)  IR8P,  roadway  speed  statistic  index. 

(f)  XLSP,  unit  departure  time  statistic  index. 

2.  BASIC  -  variables  describe  the  unit's  commodity  load: 

(a)  NBT,  number  of  trucka  in  the  basic  load. 

(b)  ATKB,  type  of  truck. 

(c)  NLB,  number  of  lines  on  truck  chit-sheet. 

(d)  ADODB,  stock  line  nomenclature. 

(e)  ATYPB,  unit  of  quantity. 

(f)  XQTYB,  quantity  of  stock  11ns  carried  by  truck. 

3.  OPCT  -  variables  are  the  service  time  statistics  Indexes  of 
master  file  clerk  and  locator  file  clerk  for  Inprocessing  each  unit. 

(a)  IATMC,  master  file  clerk  service  time  statistics  index. 

(b)  IATLC,  locator  clerk  service  time  statistics  Index. 

4.  OFCK  -  variables  are  the  checker  and  laborer  assignments  and 
th*  store-slip  mad*  up  for  each  unit: 

(a)  NCR,  number  of  checker  assignments  for  unit. 

(b)  NLBX,  number  of  laborers  traveling  with  checker. 
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(e)  NTK,  number  of  trucks  with  checker. 

(d)  ITK,  identity  of  each  truck  with  chockor. 

(•)  NSP,  number  of  loading  atopa  made  by  checker. 

(f)  NFSX,  identity  of  P8U  for  each  atop. 

(g)  NTPX,  number  of  pallet  loaded  at  each  atop. 

(h)  AQTX,  pallet  atock-lina  nomenclature. 

(i)  NBX,  number  of  boxee  loaded  at  atop. 

(j)  NLX,  number  of  loadara  (labor are,  drivera  and  checker)  uaad 
to  load  boxee  at  atop. 

5.  DEMAND  -  variablaa  daacriba  the  uaing  unit  convoy  arriving  at 

the  ASP t 

(a)  NS,  the  number  of  convoya  in  the  acenario. 

(b)  AT,  the  arrival  time  of  each  convoy  at  the  ASP. 

(c)  AUN1T,  unit-nomenclature  of  convoy. 

(d)  NT,  the  number  of  trucka  in  each  convoy. 

(a)  ATK,  the  type  of  each  truck  in  the  convoy. 

(f)  NL,  the  number  of  line  ltama  for  each  truck. 

(g)  ADOD,  the  DODC-nutnbar  of  each  line  item  for  truck. 

6.  LOAD  -  variablaa  deacrlbe  the  load  of  each  truck  in  the  convoy i 

(a)  ATYP,  quantity-unit  for  line-item. 

(b)  XQTY,  quantity  of  line  item. 

7.  HQLDA  -  variablaa  deacrlbe  the  vehlclea  in  the  holding  areas 

(a)  N1Q,  number  of  vehlclea  in  inepectlon  waiting  queue. 

(b)  NIC,  convoy  of  vehlclea  In  Inepectlon  queue. 

(c)  NIT,  convoy-number  of  vehicle  in  inepectlon  queue. 

8.  INSP  -  variablaa  describe  inepectora  in  holding  area: 

(a)  NIQ,  total  number  of  aafety  inepectora. 

(b)  NIS,  number  of  inepectora  inspecting  vehlclea. 
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(c)  MISC,  convoy  of  vehicles  being  inspected  by  Inspector. 

(d)  NIST,  convoy-number  of  vehicles  being  inspected. 

9.  HQAR  -  variables  describe  the  holding  ares-to-offlce  end  as¬ 
sembly  ares-to-off ice  distances  and  speeds t 

(a)  DOA,  distance  from  holding  area  to  operations  office. 

(b)  DOS,  distance  from  assembly  area  to  operations  office. 

(c)  IOC,  convoy  commander  speed  statistical  index. 

(d)  XCK,  checker  speed  atatietlcal  index. 

10.  CLERKS  -  variables  describe  the  statue  of  the  lnproceaslng  of¬ 
fice  clerks i 

(a)  NCH,  number  of  TR's  in  head  clerk  queue. 

(b)  NQH,  head  clerk  busy  flag. 

'  (e)  NSH,  convoy  of  TR's  by  position  in  queue. 

(d)  NCM,  number  of. TR's  in  master  clerk  queue. 

(e)  NQM,  master  clerk  busy  flag. 

(f)  NSM,  convoy  of  TR's  by  position  in  queue. 

(g)  NCL,  number  of  TR's  in  locator  file  clerk  queue(s). 

(h)  NQL,  locator  file  clerk  busy  flag. 

(1)  NSL,  convoy  of  TR's  by  position  in  queue. 

11.  STATUS  -  variables  indicate  inspection  and  lnproceaslng  status 
for  each  truck  in  scenario i 

(a)  ISP,  inspection  indicator  for  truck. 

(b)  ISS,  inprocesaing  Indicator  for  truck. 

12.  8TOCK8  -  variables  describe  the  office  master  file  cards. 

(a)  NSL,  number  of  line-items  in  master  file. 

(b)  ADODC,  DODC-number  of  each  line  item. 

(c)  XLIO,  quantity  of  line  item  in  stockage. 

(d)  XLIR,  line  itam  reorder  point. 
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(e)  MLIF,  line  lean  reorder  flag* 

(f)  XLMU),  pound  par  box  of  ltna  itao. 

(g)  XRDBX,  rounda  par  box. 

(h)  XBXPL,  rounda  par  pallet. 

13.  SITES  -  varlablaa  daacrlba  the  site  layout  and  the  distribution 
of  the  stockage: 

(a)  D8T,  roadway  dlataneaa  among  the  holding  area,  the  FSU'a  In 
the  magaslne  sect Iona,  and  tha  aaaambly  area. 

(b)  I ASP,  AS?  roadway  apaad  atatlatlc  Index. 

(c)  NFSU,  number  of  7SU*a  in  magaslne  aectlon  ahown  on  locator 

card. 

(d)  N STACK,  number  of  atacka  in  each  FSU. 

(e)  ADODX,  DODC-number  of  line  item  atored  in  atacka. 

(f)  ALOTX,  lot  number  of  item  atored  in  atacka. 

(g)  XSQTY,  quantity  of  itema  atored  in  atacka. 

14.  REORD  -  variable,  ITROX,  la  the  reorder  time  atatiatlca  index. 

15.  ST0HES-VARIABLE3  -  variablea  daacrlba  the  atore  allpe  for  each 
truck  made  out  by  the  inproceaaing  office: 

(a)  NLIP,  number  of  atopa  on  atore  allp  for  truck. 

(b)  IFSU,  FSU  at  truck  atop. 

(c)  ISTC,  stack  within  FSU  at  atop. 

(d)  XLQTY,  quantity  of  itema  to  be  picked  up  at  atop. 

16.  CKASG  -  variablea  describe  the  checker  assignment  queue. 

(a)  NCA,  number  of  checker  assignments  in  queue. 

(b)  NCT ,  convoy  of  trucks  in  assignment. 

(c)  NCI,  convoy  unit  number  in  OFCK  file  (see  Item  4). 

(d)  NCC,  checker  number  in  OFCK  file  for  unit.' 

(e)  NIC,  number  of  trucks  in  assignment. 
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(f)  NCTT ,  identity  of  trucks  in  assignment 
(t)  NLTT,  number  of  laborers  in  assignment 


17 .  CHECKER  -  variable*  describe  the  status  of  the  checker  person¬ 
nel: 

(a)  NGO,  total  nuaber  of  checkers  assigned  to  iesue  operations. 

(b)  NGH,  nuaber  of  checkers  out  on  pickup. 

(c)  NGC,  convoy  of  ths  trucks  with  a  checker  on  pickup. 

(d)  NGCT,  convoy  unit  nuaber  in  OFCK  file  (Item  4)  for  trucks 
vlth  checker. 

(e)  NGTf  checker  number  in  OFCK  file  for  unit. 

(f)  NGL,  MHE  use  indicator  at  stop. 

(g)  NGS,  loader  use  indicator  at  stop. 

18.  LABOR  -  variables  describe  the  status  of  the  laborers: 

(a)  NHO,  total  number  of  laborers  assigned  to  issue  operations. 

(b)  NHL,  number  of  laborers  idle. 

(c)  IRLOAO,  labor  loading  rate  statistics  index. 

19.  NMHE  -  variables  describe  the  status  of  the  MHE's  assigned  to 
issue  operations: 

(a)  NMHEO,  total  number  of  MHE's  on  hand. 

(b)  I MHE,  MHE  busy  flag. 

(c)  NMHF,  nuaber  of  MHE's  assigned  to  a  FSU. 

(d)  IMHF,  identity  of  MHE's  assigned  to  FSU. 

(e)  NTYP,  type  of  MHE. 

(f)  IRMHE,  MHE  loading  rate  statistical  index  as  a  function  of 
the  MHE  type,  the  truck  type  and  the  line  item  type. 

(g)  IDKE,  nuaber  of  pallet  line  item  in  MHE  loading  informa¬ 
tion. 

(h)  ADKF- ,  DO  DC  number  of  pallet  line  item. 
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20.  FADS  -  variables  describe  the  ohaekar  quauas  at  the  FBU'e  wait¬ 
ing  for  MHZ  service i 

(a)  NQP,  number  of  checkers  in  queue. 

(b)  NPC,  Identity  of  checker  by  queue  portion. 

(c)  NFS,  atope  number  for  checker  on  store  slip. 

21.  CONVOY  -  variables  describe  the  convoy  assembly  area: 

(a)  NQTO,  number  of  trucks  In  assembly  area  for  a  convoy. 

(b)  NQT,  total  number  of  trucks  in  assembly  area. 

22.  OUTPUT  -  variables  describe  the  outprocesslng  office: 

(a)  NGO,  outprocesslng  dark  busy  flag. 

(b)  NQO,  number  of  TR'e  In  outprocesslng  service  queue. 

(c)  NOC,  convoy  of  TR'e  by  queue  position. 


APPENDIX  B 
COMPUTER  PROGRAM 


53 


Computer  Program 


The  computer  program  used  for  th«  isaua  simulation  is  attached  below. 
The  program  la  written  in  the  FORTRAN  IV  programming  language  for  the  CDC 
7500  computer  system  here  at  the  US  Army  Aberdeen  Proving  Ground  facili¬ 
ties.  The  program  calls  upon  the  GASP  IV  set  of  routines  which  is  a  part  of 
the  supporting  programs  available.  The  subroutines  supplied  by  the  user  in 
the  form  of  this  program  are  described  below i 

1.  ASP  -  main  program  which  calls  upon  the  GASP  supporting  routine 
to  start  the  simulation. 

2.  INTLC  -  subroutine  called  by  the  GASP  routine  to  read  in  the 
A8P  characteristics  and  the  initial  conditions  of  the  issue  scenario. 

3.  PLAC  -  places  time  event  in  GASP  reference  file  along  with  ref¬ 
erence  information  such  as  event  class  coding  and  event  identification. 

4.  BVNTS  -  called  by  GASP  routine  to  process  next  event  In  ovent 
file  according  to  event  class  coding. 

5.  LVUNIT  -  computes  time  convoy  loaves  unit  and  whan  it  arrives 
at  ASP.  Called  by BVNTS  (Event  1). 

6.  QHOLD  -  adds  using  unit's  convoy  to  holding  area.  Called  by 
EVNTS  upon  arrival  of  convoy  at  the  ASP  (Event  2). 

7.  IN8P  -  processes  inspection  of  vehicles.  Called  by  EVNTS  at 
completion  of  inspection  (Event  3). 

8.  I8R0  -  adds  convoy  commander  to  inprocesslnx  at  operations  of¬ 
fice.  Called  t»y  EVNTS  upon  arrival  of  convoy  commander  at  Inprocessing 
office  (Event  4). 

9.  CCTOS  -  adds  TR  to  master  clerk  service  at  completion  of  that 
of  head  clerk.  Called  by  EVNTS  (Event  5). 

10.  MCTOS  -  adde  TR  to  locator  clerk  eervice  at  completion  of  that 
of  master  clerk.  Called  by  EVNTS  (Event  6). 

11.  LCTOS  -  completee  and  updates  locator  clerk  service.  Called  by 
EVNTS  at  completion  of  locator  clerk  service  (Event  7)., 

12.  CKFUNC  -  adds  to  checker  assignment  queue  at  completion  of  lo¬ 
cator  clerk  service.  Called  by  LCTOS. 

13.  CA8SP  -  releases  checker  from  holding  area  with  trucks  if 
trucks  have  bean  inspected,  store  slips  are  completed,  and  checkers  and 
laborers  are  available.  Called  by  INSP,  LCTOS  and  CKSRO. 
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14.  TA88P  -  computes  travel  tin*  of  checker  to  first  atop  from 
holding  arts.  Ballad  by  EVNTS  upon  ralaaaa  of  checker  from  holding  araa 
(Evant  8). 

15.  TCRPD  -  adds  truck  to  magaalna  loading  aarvlca.  Called  by  EVNTS 
upon  arrival  ot  truck  at  magaalna  (Evant  9). 

16.  TCLPD  -  finds  naxt  stop  for  chackar  and  computes  travel  time. 
Called  by  EVNTS  Upon  completion  of  truck  loading  by  magaalne  (Event  10). 

17.  TAG  BA  -  called  by  EVNTS  upon  arrival  of  truck  at  vehicle  as¬ 
sembly  araa  (Ivant  11).  Forwards  checker  and  laborers  to  operations  office. 
If  complete  convoy  is  In  assembly  area,  the  convoy  commander  Is  sant  to  tht 
outprocesslng  section  of  the  operations  office. 

18.  CK8R0  -  checks  chackar-assignment  queue  for  release  of  trucks 
to  loading  area  upon  return  of  checkers  and  laborers.  Called  by  EVNTS 
(Evant  12). 

19.  COSRO  -  adds  convoy  C.O.  to  outprocesslng  service  at  arrival  of 
C.O.  at  office  Jrom  assembly  area.  Called  by  EVNTS  (Event  13). 

20.  CO CMP  -  ralaasaa  convoy  from  ASP.  Called  by  SVNT  at  completion 
of  outprocesslng  (Event  14). 

21.  RELCV  -  computes  convoy  return  time  to  unit.  Called  by  EVNT  at 
release  of  convoy  (Event  15). 

22.  RBORD  -  subroutine  computes  ln-shlpment  delivery  amount  and 
tlma  of  arrival  of  shlpmsnt  convoy.  Called  by  SSLIP  when  reorder  point  Is 
reached  in  Una  Item  Inventory. 

23.  8UPPL  -  subroutine  updates  stock  Inventory  records  upon  receipt 
of  shipment.  Called  by  EVNTS  upon  arrival  of  shipment  convoy  (Event  16). 

24.  OTPUT  -  computes  queue  summary  statistics  at  completion  of  sim¬ 
ulation.  Called  fey  GASP. 

23.  Subroutines  used  in  conversions i 

MISC 

PDUNIT 

CONV 

GTMC 

GQTY 

GTLC 
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26.  Subroutine*  uaad  In  etatletlcal  bookkeeping  during  the  aimula- 

eiont 

GFLOTX 

EAVT 

TIMS 

WCOLC 

COLC 

qSTAT 

27.  Tha  following  artGASP  aubroutinaa  (alightly  modiflad  for  our 
purpoaaa)  or  functional 

GASP 

TXMST 

GRAND 

RNORM 

COLCT 

GPLOT 

HISTO 

28.  Tha  data  fila  contain*  th*  following! 

a.  Tha  control  data  uaad  to  initial!**  th*  aupporting  GASP 
routlnaai  and, 

b.  Th*  data  apacifying  the  alia  and  charactarlatlca  of  th*  ASP, 
and  th*  initial  acanarlo  to  ba  ainulatad. 
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SMYTH*STNP2*  YlOOO*fM4OO0Ot  » 

ACC0UNT*H|M4» 

MAP*CN* 

PTN(R«l*PL"IOOOO*LCM»I). 

LOO* 

PROGRAM  AS P ( INPUT* OUT PUT* TAPIS" INPUT* TAPI4"0UT PUT) 

C 

c 

C  PM OOP AM  SIMULATES  AMMO  STORAGE  POINT  (ASP)  IN  POMTMAN  AND  GASP  tV 
DIMENSION  NSITIIOOOO) 

COMMON  OSIT (10000) 

CQMM0N/GCQM1/ATRIB(23)*<JEVNT*MPA*MFE(100)*NLE  (100)*  MS  TOP* 
QNCRDR«NNAP0*NNAPT*NNATR*NNPIL*NNQ(100)*NNTRY*NPRNT* 
QPPARM(200*4)»TNOW*TTB|Q*TTCLR«TTPIN«TTRIB(23) *TT$ET 
EQUI VALINCKMSIK 1)#  QSIT(l) ) 

LIVCL  2*  ATMIS 

C  SET  CARD  RIAOIM  NUN8IM  AND  PMINT6R  NUMIIM 
MCRDR-3 
NPRNT-6 
CALL  OASP 
STOP 
END 

SUIROUTINI  INTLC 

C  SUBROUTINE  INITIALIZES  SCINERlOj  CALLED  BY  OASP  SUBROUTINE 
C  GASP  COMMON  AREAS 

C0MMQN/6C0M1/ATRIB(25 )* JE VNT*MPA*  MPI( 100)*  MLE ( 10U)*MST0P*NCR0R* 
0NNAP0*NNAPT*NNATR*NNPIL*NN0(100)*NNTRY*NPRNT* 

OP P ARM (200*  4)>TNQW*TTBEG*TTCLR*TTPIN*TTRIB(23)*TTSET 
COMMQN/GCQM4/DTPLT(10)*HHLOW(29)*HHWID(23)* IICRD*ZITAP(10)*JJC£L 
1(300)*LLABC(29*2)*LLABH(29*2)*LLABP(11*2)*LLABT(29*2)*LLPHI(10)*LI. 
2PL0(10)*LLPLT*LLSUP(1S)*LLSYM(10)*MMPTS*NNCEL(23)*NNCLT*NNHIS*NNPL 
3T*NNTPS(10)*NNSTA*NNVAR(10)*PPHI(10)*PPLOI10) 

COMMON/6COM6/ SENS  (100)*  I  INN  (100  )*KKRNK (100 )*MMAXQ(100 )  *  QQTIMdOO 
l)*SSOBV(Z3*6)*  SS'TPV(  23*61  *VVNQ(  100) 

C0MMQN/GC0M3/I1EVT*IISED(6) jJJBIG* JJClR*MMNIT*MMON#  NNAME(3)*NNCF 
0I*NNDAY*NNPPT*NNSET*NNPRT#NNPRM*NNRNS*NNRUN*NNSTR*NNYR*SSEED(6) 

C  NON-GASP  COMMON  AREAS 

COMMON/UNITS /NUNIT* ATITLE (20 )#DGO(20)*DRTN(20)*IRSP* ILSP 
CQMMON/BAS IC/NBT(20)*ATK6 (20*13 )*NL» 120* 13 )*ADODB (20*13*20 )*ATYPI( 
020*19*20)*  XGTYK 20* 13 *20) 

COMMON/ OFCT/ IATMC (20  >* IATLC (201 

COMMON /QFCK/NCK( 20 )*  NLIX(20*10)*NTK(20*1U)*ITK(20*10*3)*NSP(2C*10) 
0* NFSXI20* 10*10 )*NPTX|20* 10* 10)*A0TX( 20*10* 10)* NIX (20* 10*10)* 
QNLX(ZO*10*10) 

C  NUNIT*  NUMBER  OF  UNITS  SUPPORTED  BY  ASP 
C  ATITLE*  INDIVIDUAL  NOMENCLATURE 
C  DGO*  DISTANCE  FROM  UNIT  TO  ASP  VIA  OAO 
C  DRTN*  DISTANCE  FOR  RETURN  TO  UNIT  PROM  ASP 
C  IRS P*  ROAD  TRAVEL  SPEED  STATISTIC  INDEX 
C  ILSP*  UNIT  DEPARTURE  TIME  STATISTIC  INDICATOR 
C  NIT*  NUMBER  OF  TRUCKS  IN  BASIC  LOAD 
C  ATKI*  TYPE  OP  TRUCK 

C  NLB*  NUMBER  OF  LINES  ON  CHIT  SHEET  CARRIED  BY  TRUCK 
C  ADODB*  NOMENCLATURE  OP  STOCK  LINE  CARRIEO  BY  TRUCK 
C  ATYPB,  UNIT  UF  QUANTITY  CARRIED  BY  TRUCK 
C  KOTYB*  QUANTITY  DP  STOCK  LINE  CARRIED  BY  TRUCK 

C  IATMC*  AVIAAGE  TIME  STATISTIC  INDICATOR  FOR  T#Q.  PROCESSING  BY  MASTER 
C  PILE  CLERK 

C  IATLC*  AVERAGE  PROCESSINF  TIME  STATISTIC  INDICATOR  FOR  LOCATOR  FILE  CL 
C  NCK*  NUMBER  OF  CHECKER  ASSIGNMENTS  FOR  USING  UNIT 
C  NLBX*  NUMBER  OF  LABORERS  TRAVELING  WITH  CHECKER 
C  NTK*  NUMBER  OF  TRUCKS  WITH  CHECKER 
C  ITK*  IDENTITY  OF  EACH  TRUCK  WITH  CHECKER 
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C  NS*#  NUMBS*  0*  IOAOXNO  STOPS  MAOS  BY  CHECKER 
C  NFS*#  IDENTITY  OF  FSU  FOR  EACH  STOP 
C  NTPX#  NUMBER  OF  PALLETS  LOADED  AT  EACH  STOP 
C  AQTX#  PALLET  LINE  ITEM  NUMBER  LOADED  AT  STPQ 
C  NBX#  NUMBER  OF  BOXES  LOADED 

C  NLX#  NUMBER  OF  LOADERS!  LABORERS#  DRIVERS#  AND  CHECKER) 
CQMMON/HQLDA/NIQ#NICUOO)»NimOO) 

C  NIQ#  NUMBER  OF  VEHICLES  IN  INSPECTION  WAITING  QUEUE 
C  NIC#  CONVOY  THAT  VEHICLE  IN  WAITING  QUEUE  IS  PART  OF 
C  NIT#  CONVOY  TRUCK  THAT  VEHICLE  IN  WAITING  QUEUE  IS  PART  OF 
C0MHQN/1NSP/NI0#NIS#NISC(9)#NI$T(9) 

C  NIO#  TOTAL  NUMBER  OF  SAFETY  INSPECTORS  AVAILABLE 
C  N1S#  NUMBER  OF  INSPECTORS  PRESENTLY  INSPECTING  VEHICLES 
C  NISC#  CONVOY  BEING  INSPECTED  BY  THAT  INSPECTOR 
C  NIST#  CONVOY  TRUCK  BEING  INSPECTED  BY  THAT  INSPECTOR 
COMMON/HQAR/DOA#OOS#IOC#ICK 

C  DOA#  DISTANCE  FROM  HOLDING  AREA  TO  OPERATIONS  OFFICE 
C  DOS#  DISTANCE  FROM  ASSEMBLY  AREA  TO  OPERATIONS  OFFICE 
C  IOC#  INDEX  FOR  CONVOY  C*0.  SPEED  STATISTICS  FOR  TRAVEL 
C  ICK#  INDEX  FOR  CHECKER  SPEED  STATISTICS 

COMMON /OEM AND /NS#  AT(90)#AUNIT!90)#NT(90)#ATK(90#15)#NL(90#19)# 
QA00D(90#19#20) 

COMMON /LOAD/ AT YP ( 90# 19#  20 )#  XQTY( 90# 19# 20) 

C  NS#  NUMBER  DEMANDING  SERVICE  IN  SCENERIO 

C  AT#  TIME  OF  DEPARTURE  OF  USER-CUSTOMER  FROM  HIS  UNIT-AREA 

C  AUNIT#  NOMENCLATURE  OF  CUSTOMER-UNIT 

C  NT#  NUMBER  OF  TRUCKS  IN  CUSTOMER-CONVEY 

C  ATK#  TRUCK  TYPE  FOR  EACH  TRUCK  IN  CONVCY 

C  NL#  NUMBER  OF  LINE  ITEMS  REQUESTED  FOR  TRUCK 

C  ADOD#  DQDC  NUMBER  OF  EACH  LINE  TYPE  REQUESTED  FOR  TRUCK 

C  ATYP#  LOADING  UNIT  FOR  LINE  TYPE 

C  XQTY#  QUANTITY  OSMANDEO  FOR  L0A0IN6  ON  TRUCK 

COMM0N/CLERKS/NCH#NQH#NSH(lO0)#NCM#NQM#NSMIlD0)#NCL(2)#NQLt2)#NSLL 
Q( 2# 100) 

C  NCH#  NUMBER  OF  CUSTOMERS  IN  SRO-HEAD  CLERK  QUEUE 
C  NQH#  HEAD  CLERK  BUSY  FLAG 

C  NSH#  RANK  ORDERING  OF  CUSTOMERS  IN  QUEUE  BY  POSITION 
C  NCM#  NUMBER  OF  CUSTOMERS  IN  MASTER  FILE  CLERK  QUEUE 
C  NQM#  MASTER  FILE  CLERK  BUSY  FLAQ 
C  NSM#  RANK  ORDERING  OF  CUSTOMERS  IN  QUEUE 
C  NCL#  NUMBER  OF  CUSTOMERS  IN  LOCATOR  FILE  CLERK  QUEUE 
C  NOL#  LOCATOR  FILE  CLERK  BUSY  FLAG 

C  MSLL#  RANK  0R0ER1NG  OF  CUSTOMERS  IN  QUEUE  BY  POSITION 
COMMON/ STATUS/ ISP! 90#1 9 )# ISS ( 90# 19 1 
C  ISP#  INSPECTION  INDICATOR  FOR  CONVOY-TRUCK 
C  ISS# STORE-SLIP  INDICATOR  FOR  CONVOY-TRUCK 

COKMQN/STOCKS/NSL#  AOQDC 1 200 ) #  XL  10! 200 ) #XLZR( 200) # NLIF (200 ) 

Q#XLBRD( 200)#  XRDBX! 200)# XBXPL 1 200) 

C  NSL#  NUMBER  OF  STOCKAGf  LINE  ITEMS  IN  MASTER  FILE 
C  ADODC#  DODC  NUMBER  OF  EACH  LINE  ITEM 
C  XL  10#  QUANTITY  OF  LINE  ITEM  IN  STOCKAGE 
C  XLIR#  LINE  ITEM  REORDER  POINT 
C  NLIF#  LINE  ITEM  REORDER  FLAG 
C  XLIRD#  POUNDS  PER  BOX 

C  XRDBX#  ROUNDS  PER  BOX 

C  XBXPL#  ROUNOS  PER  PALLET 

COMMON/S  I TES/OST (60#60)#IASP#NFSU#NSTACK<60)#ADQDX(60#2C># 

QALOTX (60#20)#XS9T Y(60# 20) 

C  OST#  ROAD-DISTANCE  BETWEEN  HOLDING  AREA#  SECTION  FSU'S#  AND 
C  ASSEMBLY  AREA 

C  IASP#  ASP-ROADWAY  TRAVEL  SPEED  STATISTIC  INDEX 
C  NPSU#  NUMBER  OF  FSU'S  IN  SECTION  OF  ASP  SHOWN  BY  LOCATOR  CAROS 
C  NSTACK#  NUMBER  CF  STACKS  IN  EACH  FSU 
C  ADQDX#  DODC  NUMBER  OF  ITEMS  STORED  IN  STACK 
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C  ALOTX#  LOT  NUN  HR  OF  ITEMS  STORED  IN  STACK 
C  XSQTY#  QUANTITY  OF  ITEMS  STORIO  IN ''STACK 
COHNON/RCORD/ITROX 

C  ITROX#  REORDER  TIME  STATISTICS  INDEX 

COMHON/STORES/NLIPC 90*19)# IFSU< 90#19#20>*ISTC C50*19#2G > 
COMMON/STOREL/XLQTVI 90*19# 10) 

C  NLIP#NUNBER  OF  STOPS  ON  STORE  SLIP  FOR  CONVOY  TRUCK 
C  IFSU#  FSU  FOR  TRUCK  STOP 
C  ISTC# STACK  OF  TRUCK  STOP 

C  XLQTY#  QUANTITY  OF  ITEMS  TO  IE  PICKEO  UP  AT  TRUCK  STOP 

COMMON/CKASG/NCA*NCT ( 1009* NC 1(1001* NCC ( 100I#NTC( 1 00 1 # NC TT 1 100#  5  >  *N 
QLTTUOO) 

C  NC A#  NUMBER  OF  CHECKER  ASSIGNMENTS  PRESENTLY  IN  QUEUE 
C  NOT#  CONVOY  OF  TRUCKS  IN  ASSIGNMENT 
C  NCI*  CONVOY  UNIT  DESIGNATION  PY  FILE  NUMBER 
C  NCC*  NUMBER  OF  CHECKER  IN  UNIT  OFFICE  FILE 
C  NTC*  NUMBER  OF  TRUCKS  IN  ASSIGNMENTS  * 

C  NCTT*  CONVOY-TRUCKS  IN  ASSIGNMENTS 
C  NLTT#  NUMBER  OF  LABORERS  IN  ASSIGNMENT 
COMHON/LABCR/NHO#NHL# 1RL0AD 

C  NHO*  TOTAL  NUMBER  OF  LABORERS  ASSIGNED  TO  INPROCESSING 
C  NHL#  NUMBER  OF  LABORERS  PRESENTLY  IDLE  IN  LABOR  POOL 
C  IRLOAD*  LABORER  LOADING  RATE  STATISTICAL  INDICATOR  (BOXES  MOVED  PER  KI 
COMMON/CHECKER /NGO# NGH* NGC ( 20 )# NGCT ( 20 )# NGT( 20 )#NGLt 20 )#NG$(  20) 

C  NGO#  TOTAL  NUMBER  OF  CHECKERS  ASSIGNED  TO  INPROCESSING 
C  NGH#  NUMBER  OF  CHECKERS  PRESENTLY  ASSIGNED  TC  PICKUP 
C  NGC*  CONVOY  OF  TRUCKS  ASSIGNED  TO  PICKUP 
C  NGCT#  CONVOY  UNIT  DESIGNATOR  NUMBER 
C  NGT*  CHECKER  NUMBER  IN  UNIT  OFFICE  FILE 
C  NGL*  MHE  USE  INDICATOR  AT  LOADING  STOP 
C  NGS#  LOADER  USE  INDICATOR  AT  STOP 

COMNON/NMHE/NNHEO# INHE ( 30 1 #NMHF (60 )#I MHF (60#  9 ) # 

QNTYP(30)» IRMHE(5#  9#20  )#  IDKE*ADKE(  200) 

C  NMHEO#  TOTAL  NUMBER  OF  MHE'S  ON  HAND 
C  IMHE#  MHE  BUSY  DISPOSITION  FLAG 
C  NMHF*  NUMBER  OF  MHE'S  ASSIGNED  TO  FSU 
C  IMHF#  MHE  ASSIGNED  TO  FSU 
C  NTYP#  MHE  TYPE 

C  IRMHE#  MHE  LOADING  RATE  STATISTIC  INDICATOR  (PALLETS  MOVED  PER  MINUTE) 
C  BY  MHE  TYPE#  TRUCK  TYPE  AND  DODC  TYPE 
C  IDKE*  NUMBER  OF  PALLET  LINE  ITEM  LOADING  INFO  +1 
C  ADKE*  DODC  NUMBER  OF  PALLET  LINE  ITEM  WITH  LOADING  INFO 
COMMON / P ADS /NQP ( 60 )#NPC( 60* 100)* NFS (60*100) 

C  NQP#  NUMBER  OF  CHECKERS  IN  MHE  SERVICE  QUEUE 
C  NPC#  IDENTITY  OF  CHECKER  BY  POSITION  IN  QUEUE 
C  NPS*  STOP  NUMBER  ON  CHECKER  STORE  SLIP 
COMMON/CONVOY/NQTO( 100 )#NQT 

C  NQTO#  NUMBER  OF  TRUCKS  ASSIGNED  TO  CONVOY  THAT  ARE  PRESENTLY  IN 
C  ASSEMBLY  AREA 

C  NOT#  TOTAL  NUMBER  OF  TRUCKS  IN  CONVOY  ASSEMBLY  AREA 
COMMON/OUTPUT/NGO#NQO*NOC(  100) 

C  NGO*  SRO  OUT-PROCESSING  DISPOSITION  FLAG 
C  NQO#  NUMBER  OF  CUSTOMERS  IN  OUT-PROCESSING  SERVICE  QUEUE 
C  NOC*  RANK  ORDERING  OF  CUSTOMERS  BY  POSITION  IN  SERVICE  QUEUE 
COMMON /AT I  ME /I TIV* ITIA#ITA*ITIE#ITIL#ITBO*ITRO 
C  IT IV#  VEHICLE  SAFETY  INSPECTION  TIME  STATISTICS  INDICATOR 
C  IT IA#  HEAD  CLERK  FOR  SRO  INPROCESSING  SERVICE  TIME 
C  ITA»  CHECKER  DISPATCH  ON  ROAD  FROM  HOLDING  AREA 
C  ITIE#  MHE  AVERAGE  SETUP  TIME  TO  START  LOADING 
C  ITIL#  AVERAGE  SETUP  TIME  FOR  MANUAL  LABOR 
C  ITBO*  OUTPROCESSING  SEVICE  BASELINE  TIME 

C  ITRO#  OUTPROCESSING  CLERK  INCREMENTAL  SERVICE  PER  LINE  ITEM 

COMMON/ STAT/NQS* AQS ( 200 )# NNS( 200 ) # NSQ( 200) # TSS ( 200 ) » TES (200 ) * 
QlQS(200)*TSD(230)*TED(200)#TSU(200)f TEW (200) 


C  NOS#  NUMBER ' OP  OU1UI  SIRVICK  STATIONS 
C  AOS#  NONINCIATUM  OR  OUIUI  SIRVZCI  STATION 
C  NNS#  TOTAL  NUNBIR  SIRVICED  BT  SIRVICI  STATION 
C  NSO#  TOTAL  OR  NUMBERS  IN  GUIUI  AS  CUSTOHIR.  ARRIVES 
C  TSS#  TOTAL  OR  SIRVICI  TIN!  STARTS  ROR  CUSTONIRS 

C  TBS#  TOTAL  OR  SIRVICI  TINS  INOS  ROR  CUSTONIRS 

C  TSO#  TOTAL  OR  SIRVICI  SOLI  TINI  STARTS 

C  TED#  TOTAL  OR  SIRVICI  SOLI  TINI  INDS 

C  TSW#  TOTAL  OR  WAIT  TINI  START  ROR  CUSTONIR 
C  TIM#  TOTAL  OF  VAST  TINI  IND  FOR  CUSTONIR 
COHMON/TAVE/NQV#NQVE(20)#AQVE(20#2) 

C  NOV#  TOTAL  NUMBER  TINE  RERSISTINT  STATISTICS 

C  NOVI#  VALUE  OR  STATISTIC#  TRUCKS  IN  HOLDING  ARIA#  TiO*  INRROCISSING 
C  ORRICE# TRUCKS  IN  ASR  RRORIR#  TRUCKS  IN  VIH  ASST  ARIA#  T.O.  OUT  PRCC 
C  AQVI#  STATISTIC  NONINCLATURB 

CQMNON/IAVE/NQV# ANN (21 )# ISM<29) # A0VE< 29#2I 
C  NOV#  TOTOAL  NUNBIR  OR  OBSERVED  STATISTICS 
C  ANN#  VALUI  OF  OBSIRVID  STATISTIC 
C  ISN#  OBSIRVID  STATISTIC  SNITCH 
C  AQVE#  NOMENCLATURE 

COMMON/ RLOT/XNR( 10) 

COMMON/ WCOL/LAQ( 100)#LAS( 100)#NMI ( 100  )#TIE( 100#  90 ) 

COMMQN/DCOLC /ISO X 1910 )#D$TXC(  910) 

CONNON/TCOLC/ISOT (90)#TSST (90) 

COMMON /OF NS /TDUSK# TO AWN# IS DAT 

LEVEL  2#  ATRIB 

LEVEL  2#  NS 

LEVEL  2#  ATYR 

LEVEL  2#  NLIP 

LEVEL  2#  KLOTY 

LEVEL  2#  NCK 

LEVEL  2#  NBT 

LEVEL  2#  DST 

LEVEL  2#  NOP 

LEVEL  2#  NOS 

LEVEL  2#  DTRLT 

LEVEL  it  EENQ 

C  INITIALIZE  NON-GASP  VARIABLES 

DIMENSION  AT VC 7 ) 

INTEGER  AQVE 
INTEGER  AQVE 
490  FORMAT ( ) 

999  FORMAT ( 2X# 7AX0 1 

RE AO 1 9# 999 )( ATT ( I  )# I"1#T) 

WRITE (6# 994) (ATY( 1 )#!■!# 7) 

C  SET  UR  ASP  LAYOUT 

C  DISTANCES(KH)  FROM  HOLOING  AND  ASSEMBLY  AREAS  TO  OPERATIONS  OFFICE 
C  AND  C.O*  AND  CHECKER  SPIED  $TATISTICS(KM/HR) 

RE AO (9# 999 ) ( ATYC II# Ia X#  7 9 
WRIT 1 1 6#  994) (ATY(I)#I«1#7) 

RE AD (9# 100 1)00 A# DOS 
WRITI(6#100l)DQA#  DOS 
REA0(3#1000)I0C# ICK 
WRITE (6# 1000 ) IOC# 1CK 
REAO(9#1001MPPARM(IOC#K)#K*1#A) 

WRITE (6# 1001 ) ( PP ARM( IOC#K ) #  K« 1#  A) 

READ  (9#  1001MRPARMI  1CK#K)#K«1#4) 

NR  I  TEC  6#  1001 )  ( PPARM(  ICK#K)#K"1#A) 

C  SAFETY  INSPECTORS#  LABORERS#  AND  CHECKERS  ASSIGNEO  TO  INPROCESSING 
READ  (9#  999  MATY  (I  )#!■!#  7) 

WRITE (6# 999) (ATY(I)#Ial#7) 

READ(9#10OO)NIO#NH0#NG0 
1000  FORMAT ((2X«10(I3#2X))) 

WRITE (6# 1000 )N10#NH0#NG0 
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C  AVIAAIC  SERVICE  T|MK I  FOR  VARIOUS  STASIS  OF  INPAOCESSXNG 
RIAD(S«999)(4TY(I)*I«1*?| 

HAXTE(6*999)(ATY( I)»  I»l*7) 

READ(S*1000)XTIV*ITIA* XTA*XTII»ITIL*IT60*1TRO 
HRXTI(6* 1000) 1TIV* ITIA* ITA*  I  TIE* IT  II* ITBQ* I  TAD 
AIAD(9*100l)tPPAAH(ITIV*K)iK«l*4> 

1001  FQAMAT((3X*6(F10*4*2X)) ) 

HAITI ( 6* 1001 ) (PPARM(ITIV*K)*K«i*4) 

READ(9*1001) (PPARM(ITIA»K)*K»1*4) 

HRITE (6* 1001) ( PRAAM ( ITIA*K)#K»1*4) 

READ (3* 1001 MPPARM(ITA*K)»K*1*4) 

HRITE(6*1001) ( PPARM(  XTA*K)*Ml*4) 

REAO t 9*1001 )( PRAAM! XT! I#K)*K*1* 4) 

HAITI  (6*1001  )  (PRAAM!  1T1I*K)*K*1«4) 

RIA0( 9* 1001) ( PPARM(XTIl*K  )*Mi*4) 

HR  I  Til  6*  1001 )  (  PPAAM(  ITXl*  K)»  Mi*4 ) 

RE A0(9*1001) ( PRAAM! ITI0*K)*K«1* 6 ) 

HAITI (6* 1001) ( PPAAN( I T  BO*  K )*K"1«6) 

READ (9* 1001) ( P  PAR  MCI TRO*K  )*K*1*4 ) 

HAITI (6*1001) ( PRAAM! XTA0*K)*K«1*4) 

C  STQCKAOI  INFORMATION 

RIAD (9*099)1 ATY(I)«Ial*7) 

HAITI (6*  999  MATY  ( I ) *  1*1*7) 

READ ( 9* 1000) NSl 
WRITE (6* 1000 

R8A0(9*1001) (ADODC ( I)*  XL! A! I )*XLIRD(X )*XRDBX( I )*  XBXPL (It* 
QIal*NSL ) 

lOOt  FORMAT! ( 2X*A10*2X*4 (P10*4* IX) ) ) 

HAITI (6*1002)  (ADODC ( 1  )*  XL1A( I  )*  XLIROt  I  )*XROOX(  X)*XBXPLtl)* 
OI«l*NSL ) 

C  PIBLO  ST0RA9C  UNITS  <PSU«S)  IN  A  SECTION*  STACKS  PCR  BACH 
C  PSU*  OODC  NUMBER  ANO  OUANTITY  OP  ITEMS  STORED  IN  EACH  STACK* 

C  AND  MHI  SERVICE  ASSIGNMENT 

READ (9* 999 )( ATY( I )* I»i*T) 

HAITI (6* 999) ( ATY! I )* I"l«7 ) 

RIAO(f« 10001 NP SU 
HRITI(6*1000)NPSU 
DO  10  I-1*NPSU 
HEAD (9* 1000) NS  TACK ( I > 

UR  I Tl ( 6*1000) I* N STACK ( I) 

NS«NSTACK(II 
IFCNS  *10*0 (GOTO  10 

A IAD( 9*1001 ) ( ADODX ( I*  0 ) *  ALDTX( I* J )*  XSQTY (1*J ) *  J»1#NS ) 

1001  FORMAT ( ( 2X*2 ( A10*2X )*  P10« 4 ) ) 

HAITI(6»1101)(ADOOK(I»J)*AI.OTX(I*J)*XSGTV(I*J)*J«1*NS) 

1101  FORMAT ((2X*2(A10*2X)#P12*4)) 

10  CONTINUE 
C  RIORDIA  STATISTICS 

Rl AD (9*999) ( ATY( I ) *  I* 1* 7) 

HAITI (6* 999) (AT Y( 1 )*I >1*7) 

RIAD(9*1000)ITR0X 

HRXTI(6*1000)ITROX 

READ (9 *1001  )(PPARM(ITR0X*K)*K*1*4) 

HR ITK  6*1001 )( PRAAM ( ITAOX*K I  *K«1*4 ) 

C  ASSIGNMENT  OF  NHl'S  TO  FIELD  STORAGE  UNITS 
RE  AD<  9*999  MATY  1 1 1*  I  *1*7) 

HAITI) 6*  999) ( ATY( I )* I*l*7 ) 

00  19  X"1*NP$U 
READ ( 9*10001 NMHF ( I) 

UR  ITS (6* 1000) I*NMHF( I ) 

NM-NMHF(I) 

1F(NM.E«.0)GQT0  19 
A  BAD (9* 1000) (IMHP( I* J|*J«1*NH) 

HAITI  (6*  1000  JUMHFII,  J)*J«i*NM) 


19  CONTINUE 

DO  M  l*l*NSl 
AO«ADODC(I) 

xnoii)>o 

DO  20  J«l*NPSU 
NS*MSTACKt J) 

DO  20  M1*NS 

XP(ADODXt'J*K).EQ.AQ)XLIOI  I)«XL10(I  )*XSQTY( J#K) 

20  CONTINUE 

WRITI(4»11G1)(A0QDC(I)*XLX0(1)*I«1«NSL) 

1101  PORNAT((2X*4(A10*2X*P12,2*2XU) 

C  ROAD-OISTANCSS  BETWEEN  FIELD  ST0RA8E  UNITS (KM> 

NSITI«N93U«2 
00  21  I"1*NSITE 
00  21  J«1*NSXTE 

21  DST(I,J>«0. 

RSA0(9*999) (ATV( II# I"1#T) 

WRITE ( 6*999 )( ATY( I)* !■ 1*7) 

RBAD(9* 1000  )NDZ 

RIAO(S*li04XI*J*DST(I*l*4*l)*KI«l*NOZI 
1104  P0RMAT((4(2X#2(I2#2X)*P9.2))> 

DO  21  I-1*NSITE 

22  WRITE  (6#  1004MDSTU*  J  )*  J  ■liNSITE ) 

1004  P0RMAT((|X*22(P9»2*1X) ) ) 

RIAD(9*  XOOQIIASP 

WRXTE(6»1000)IA$P 

lASXalASP 

READ (9* 1001 ) ( PPARM( IASX*K)*K*1*4) 

WRITI(6*10C1) ( PPARM ( IASX* K  )*K«1*  4) 

C  MATERIAL  HANDLING  EGUXPMENT  (MHI)  ASSIGNMENT  INPORNATION 
READ  (9*  999  HATY(XI*XB1*7) 

WRIT  1(6* 999) ( ATY( X )# 1*1*7) 

R2AD(9*10QO)NMHEO 

WRXTI(6*XOOO)NNHIO 

RE AD ( 9* 1000) ( NTYP 1 X)* !■!*  NHHEO) 

WRITE (6* 1000) (NTYPII  )* X*1*NMHE0) 

C  LOADING  RATS  PER  MHI»S  IY  TRUCK  TYPE (2. 9T* 9T» 8T0>*  NHE  TYPE 
C  (PQRKLX9T  ON  CRANE)*  AND  LINE  ITEM  TYPE (PALLET) 
RSAD(9*1C00)ITRKE#IMH||,IDKE 
WRITE (6*1000) ITRKE* I MHI I* IDKE 
READ  1 9* 1916) ( ADKE (K)*K«1* I  OKI) 

1916  PQRMAT(6(2X«A10) ) 

WRITE (6* 1916 ) ( A  OK  B (K)jK*l#IDKB) 

READ (9* 1000) 1ST 

WRITS(6*1000>IST 

ILR-IST 

DO  24  1*1*  XTRKE 
DO  24  J*l« IMHEE 
00  24  K*l» IDKE 
XRMHE( I#J*K)*XLR 

R I AD  < 9*1001 ) ( PPARM( ILR*  Kl )«KL*1*4 ) 

WRIT! (6* 1001 I ( PPARM( ILR.Kl )*KL"l*4 I 
ILR*  XLRPl 
24  CONTINUE 

WRITE (6*1000 ) ( ( ( IRMHE (I*J*K)*I«1*ITRKE)*J«1* IMHEE )*  K*l*  IDKE) 
C  LOADING  RATE  POR  LABQRBR  (NUMBER  OP  BOXES  PER  MAN  HOUR) 

RBAD(  9*  999) ( AT Y ( I )* I>  1*  7) 

WRITE(6*999)(ATY(I 1*1*1*?) 

READ ( 9* 1000) IR LOAD 

WRITS (6* 1000 ) IRLOAO 

READ( 9*1001 )(PPARMCIRLCAD*K)*K-1#4) 

WRITE <6* 1001 ) ( PPARM( IRL0A0*K)*K*1*4) 


C  QUEUE  SERVICE  STATION  STATISTICS 
AQSdlMHINSP 

ios<i>-o 

AQS<2)-4HMANC 

I OS (21 *0 

AQSI3IMHHASC 

IOS ( 3  > -0 

AQS(4I«4HLCCC 

IQ$I4)«1 

AQSI5I-4HL0CC 

IQS (5) >2 

AQS(6)-4HCKAG 

IQSI6I-0 

NQS-6*NFSU*NNHE0*1 

IK-6 

00  40  IQQ-l/NFSU 
AOS (IX41QQ)-4HF$U 
IQS ( IK4 100  )■ IQQ 

40  CONTINUE 
IKMK4NFSU 

DO  41  IQQ-  1*  NMHEO 
AQS ( IK+1QQ) -4HMHE 
I  OS ( IK  +  IQQ  l-IQO 

41  CONTINUE 
IK-IK+NHHEC 

AOS  ( IK+11-4H0UTC 
I  OS ( IK+1 )  -0 
C  HISTROGRANS 
NNHIS-7 

IL  ABH  d#  1 ) -4HTKS / 

LLABHd«2 ) -4HC0HV 
LLABHI 2« 1 ) -4HINS P 
LLABH(2«2)"4H/QUE 
UABH(3*1)-4HHC/ 

LLABH( 3/ 2) -4HQUE 
LlABH(4#l I-4HMC/ 

LLABH(4»2) -4HQUE 
LLABHI 5* 1 I -4HLC/ 

LlABHiS*  2 ) -4HQUE 
UABH|6#U-4HCKA/ 

LIABHI 6; 2) -4H0UE 
UABHCT#1»«4H0C/ 

LLABHt  7*2 ) -4H0UE 
00  408  ZHIS-1*  NNHIS 
NNCELt IHIS  )»20 
HHLOWIIHISJ-1. 

HHWIOI IHIS )•!• 

408  CONTINUE 

NNC6L d)-NNC£Ld)+2 
DO  418  IHIS -2#  NNHIS 

418  NNCEU IHIS ) -NNCEL < IHIS ) ♦NNCEL I IHIS-1 1+2 
C  PLOTS 

NNPLT-1 
UPLT-0 
NNVARd )  -9 
DTPLTID-10. 

IITAPm-0 
NNVR-NNVAR ( 1 > 

LLABP(2»1) -4HC0N/ 

LLABP(2#2»-4HASP 
ILABPd*  1  >  -4HTKS  / 

LLABP(1>2 > • 4  H  A  S  P 
LLABP(3»U-4HTKS/ 

LLABPI 3*  2 ) -4HHL0 
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UAftP(4«l)«  XTKS/ 

LLAftP(4*2|.<i<L0A 
CL Aft  P  C  5 # 1 1 •*HTKS/ 

LLABP(9*X|.4HAftY 

lUftMtiU«4NCC/ 

UAtPU*2).4N0PI 

UtlMTfllMHCC/ 

UA»P(7.2J.4H0F0 
LLAftPt  ft# 1 1 -4HCK/ 
lLAftP(6*2)«4HHLD 
LLAftF ( 9j 1 ) -4HLB/ 

LIABP{ 9*  2 ) -4HHLD 
LLASP(11*1 )«4H 
UABP<11,2)-4HTINE 
LLSVM(1 )«1HT 
USYNI2>-1HC 
USYHm-iHH 
LL$YH(4I «1HL 
LISYMSI-IHA 
LLS YN(6)*1H! 

IISYN(?)*1HQ 

ltSVMC«)-lHK 

LLSYM(9)-1HB 

MH3I7-20090 

JHF IS. i NNSg  T-HHC  FI  )/(NNVAP.  (l)+l) 

00  409  m-l,NNVR 
XNPtXPLt.O. 

LLF10(IFL)«1 
LLPHIl XPl) -1 
PPLO<IPll«0. 

FFHHXFLt.100, 

409  CONTINUE 
XNP( 8) *NQO 
XNF(9)«NH0 

:  INITIALIZE  observed  statistics 
00  411  INEC.1,100 
LAOIINEO-O 
LASUNECt'G 
NNEdNECt-O 
4U  CONTINUE 

00  412  INED. 1*913 

412  ISDXdNEDI-Q 

00  413  INET"1*90 
ISDT ( INET  ).Q 

413  CONTINUE 
NOV-23 
NNCLT-23 

AVERAGE  WAIT  TINE  FOR  CONVOY  IN  ASF 
AOVE(l*l|.»ASP-» 

A0VE(1*2).*W/CN* 

C0NWDY  rivals  to  asp 

A0V6 12* 1).*ASP-* 

A0Vit2*2).*A/CN* 

AVER}SScI5Mf»BfIe!e?  CONVOY  DEPARTURES  FRON  ASP 
AOVE (3# 2 )• 1 D/CN1 

,n  houiko  *«» 

A0VE(H,2|««w/TK» 

‘v"iS5.!in,!^5:.CH£CK"  m‘,TU,es  r,m  *«“ 

A0VEI12*2t«*D/CK* 
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C  AVERAGE  TIRE  BETWEEN  CHECKER  ARRIVALS  AT  ASSY  AREA 
A0V6U9*li«»ABY-» 

A0Vi(19/2)»‘A/CK* 

C  AVERAGE  WAIT  TINE  Of  TRUCK  IN  ASSY  AREA 
AOVE(IO/l)>*ABY-« 

A0VE(20/2)**W/TK‘ 

C  AVERAGE  WAIT  TINE  FOR  TRUCK  AT  FSU 
AOVE(13/l)-»LDA-« 

A0VE(13*2)«*WPCK» 

C  AVEAGE  TINE  CHECKER  IN  FSU  QUEUE  FOR  MHE  SERVICE 
AQVEti4/ll-»LDA-» 

AOVE (14/ 2) O/CK* 

C  AVE  SERVICE  TINE  FOR  CHECKER  BY  HHE  AT  FSU 
AOVE(19/l)«*LDA-‘ 

AOVE (15/2) ■'S/HH* 

C  AVEAGE  SEVICE  TINE  BY  LABORERES 
A0VE(16/1 )•• IDA-' 

AOVE (16/2) *'S /LB 1 

C  AVE  TRAVEL  OISTANCE  PER  TRUCK  TRIP  IN  ASF 
AQVI(l7/l)«'lOA-» 

A0VE(17/2)*»TRVD* 

C  AVEAGE  TRAVEL  TINE  FOR  CHECKER  WITHIN  LDA 
AOVEUB#l)*»LDA-' 

A0VI(18/2)«*T/CK* 

C  AVE  WAIT  TINE  IN  ASP  OFFICE  (INPROCESSING  QUEUt) 

AOVE ( 4/1 ) ■ • OF  I  —  * 

A0VE(4/2)  a,W/CC 

C  AVEAGE  TINE  TR  IN  HEAD  CLERK  QUEUE 
AQVE(5/ll**OFI-* 

AOVE (9*  2  )• 'Q/HC  * 

C  AVE  SERVICE  TINE  IN  ASP  OFFICE  (INPROCESSING)  HEAD  CLERK 
A0VE(6»I)*«CFI-» 

A0VE(6#2)"*S/HC* 

C  AVEAGE  TINE  TR  IN  RASTER  CLERK  QUEUE 
A0VE(7#l)»*0FI-‘ 

ACVE(7/2)»*C/NC* 

C  AVE  SEVICE  TINE  IN  ASP  OFFICE  ( INPRCCESSING)  MASTER  CLERK 
AOVE(S/ll»«OFI-* 

AQVE(6/  21  S/NC* 

C  AVERAGE  TINE  TR  IN  LOCATOR  CLERK  QUEUE 
AOVE(9#l)>«OFI-« 

A0VE(9,2).»O/lC* 

C  AVE  SERVICE  TINE  IN  ASP  OFFICE  (INPROCESSING)  LOCATOR  CLERK 
AaVE(Xu»l)"'QFI-* 

AOVE ( 10/2 ) ■ • S /LC • 

C  AVE  WAIT  TINE  IN  ASP  OFFICE  ( OUTPROCESSING)  QUEUE 
AOVE (21/1) ■•OFO-' 

AOVE (21/ 2 ) *'W/CC  * 

C  AVERAGE  TINE  WITHIN  CLERK  QUEUE 
AQVE< 22/1 )«»0F0-» 

AOVE ( 22/ 2 ) ■ 1 0/ OC ' 

C  AVE  SERVICE  TIKE  IN  ASP  OFFICE  OUTPROCESSING 
AOVE (23/ 1 1 ■*OFQ“* 

AOVE (23/ 2  )  ■ • S /CC  1 

C  OBSERVED  VARIABLE  STATISTICS  (COLCT) 

00  43  IOV-I/NOV 
ANN ( IOV ) "0 . 

ISN(I0V)«0 
SSOBV( IOV/ll-O. 

SSGSV( IOV, 21-0, 

SS0BV(I0V/3)>0. 

LLABC(IOV/1)>AOVE(IOV/1) 

LLABC(I0V/2)>A0VE(I0V/2) 

43  CONTINUE 
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tin!  persistent  statistics 


US  I 


USE 


C  INITIALIZE 
M«V*U 
NMSTAalB 

c  *"  888,n.f*  WMT,M 

c  AVE  MUMBIr'tRUCKS^IH  ASA 
AAVIU«U>*ASR-' 

AQVE(E«E)>tN/TK« 

e  ‘v‘  ,H  H0L0r"8  **•* 
AQVECB»|) ■ *N/TK* 

C  AVI  NUMBER  OR  INSPECTORS  IN  USE 
A0VI(7,l).»HLD-» 

AQVE(7*2N«N/SP* 

C  AVI  NUMBER  CHECKERS  IN 
AQVMBjirt'LDA-' 

AQVE(9«2 ) • *N/CK* 

C  AVE  NUMBER  LABORERS  IN 
AOVS( 10i l)"*LOAr* 

AQVE( 10#  2) **N/LB • 

C  AVE  NUMBER  CONVflV  COMMANDERS 
AQVS(1«  l)a'CFI»' 

A0VE(l#2)a*N/CC* 

c  *ma»aagf»  ct”K  °ueue 

AQVE (4#2)a*N/HC * 

c  cte,,‘  »u£u« 
AQVE(3/2 )>'N/MC  * 

m*8w"!S»..,WfS4T* ctI,K  »ytU£ 

A0V|(6#E)a»N/LC 

C  ^  !S!!ff,T?VWS  IH  L0A0IN6  AREA 
ABVEUl«l)a*LOA-« 

AQVE(ll*2)ifN/TK’ 

C  AVE  NUMBER  NHE*S  IN  USE 
AQVE(L2*Ila'L0A-« 

AQVE (12*2 ) • • N/HE • 

C  AVE  NUMBER  FSUd  IN  USE 
AQVE(13*1 ) »*LDA-* 

AQVE (13*2 )a*N/FS  * 

C  AVE  NUMBER  TRUCKS  IN  ASSY  AREA 
A0VEU4#1)-»ABY-» 

,  A9VEd4#2 l«*N/TK* 

6  «!!.*!!,,“, J?o,T!C!  «»"•««••«»• 

AQVE (13#2 ) ■' N/CC • 

‘V,*!'vm*;nJ?o!oI”"ess,"s  cl6M  «U'U£ 

A9VE(lA*2l  a'N/OC 

o5,!j,:5'!L!5!,*,u  sr*T"ncs  ««*«• 

SSTRV(IQV#i|.0. 

SSTRVI I0V#2) *0( 

SSTPVdQV* l)«0* 

SSTRVdQV*  A)aO« 

LLABT(IBV(l|«AQVEdOV#l) 

c  CUSTOMER  IN  SCENERIO 

RCAD(9#999HATVd)#Z*l*7l 
WRITE(6»  999}  (ATVdlilal*?) 


(CC)  IN  OFFICE  INRRQCESSING 
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|  G  CONVOY  FORWARD  ARIA  ROAD  TRAVEL  SUIDtKR/HR) 

|  REAP (9# 1000 INUNIT# IRSA#ILSP 

I  WRITE !*# 1000  INUNIT# I ASP# XL SP 

READ! 9# iOOlM  APARM!  IRSP»K  l#K»l#4) 

WRITE (*#1001 )  (PPARN! 1RSA#K)#M1#4) 
AfiAD(5#lQ01)!PPAAM!ILSP#K>#K.l#4) 

WRITE (6# 1001 1 1 PPARN! XLSP#K)#M1»4)  ' 

C  USING  UNITS  ASSIGNEO  TO  ASA  AOR  SUAAORT 

C  SASIC  LOAD  AND  ROAD  DISTANCES  FAOH  ASPIKMI 
DO  27  I»l# NUNIT 

C  USING  UNITS  AND  ROAD  DISTANCES 
I  .  READ(9#110Z) ATITLE (I )#DGO( I)#DRTN( I) 

1102  A0RHATII2X#A10#2X#2(A1Q«4#2X) I) 

WRITE(6#1102) ATITLEI I)#DGO(X l#DRTNI I) 

)  C  OFFICE  XNAROCISSXNG  TIRE  FOR  USING  UNIT 

i  •  N  GAO  1 9# 1000  >  X AT  HC( Z)#IATLC( XT 

WRITE!*#  1000  HAT  HC(  1 1*  I  AT  LC  (XI 
READ  <9#  1001  )(PPARM(IATMC(I)#K)#K*1#4) 

WRITE!*# 1001) i PPARHIIATHC 1 1 )#KI#K*1#4) 

READ (9# 1001 I IPPARH! IATLC! X )#K)#K*1#4) 

WRITE!*# 1001) ( PA ARM! IATLC(X)jK)#K"l#4) 

C  OFFICE  CHECKER  ASSIGNMENT  FOR  USING  UNIT 
READ!9# 1912INCK! I) 

1912  AORNAT  (2X#10(I2#2X) ) 

WRITE  !6#1912)NCK( I) 

NCH-NCK(I) 

DO  29  IJ-1#NCH 
R£AD(5# 1912 INLBX i 1# IJ )#NTK! X#X  J )#  N$P(  X#  IJ  ) 

WRITE(6#1912)NLBX(I# I J )#NTK (I#IJ)#NSP!I#IJ) 

NKK«NTK(I#IJ) 

READ! 9# 1912) < I TK i I# IJ#  K )#  K*l# NKK ) 

WRITE! *#1912 )! ITK! I# IJ#K)#K«1#NKK) 

NSPT »NS A! I # I J  > 

DO  29  IK>1#NSAT 

READ(5#1919)NASX!1#XJ#IK}#NPTX(X#XJ#IK)#AQTXII#IJ#IK|#NBX(1#IJ#IK) 
Q#NLX( I# IJ# IK ) 

1513  F0RHAT12X# I2#2X#I2#2X»A10#2(2X# 12) ) 

WRITE! *#1913)NFSX(I#IJ#IK)#NATX(I#IJ#IK)#AGTX(I#IJ#XK)#NBX(I#IJ# tK 
0)#NLX(I#IJ#IK) 

29  CONTINUE 

C  TRUCK  STQCKAGE  ASSIGNMENT  IN  BASIC  LOAD 
READ(9#1121)NBT(X) 

1121  FORNAT ( 14X#X4) 

v  WRITE! *#1000) NBT ( I) 

-  ;  NTT«NBT! I) 

!  DO  27  J*1#NTT 

READI9# 1010) ATKB I  I #  J ) # NLB! I » 4 ) 
i  WR!TEI6#1010)ATKB!X#J)#NLBiI# J) 

NLLaNLB! I# J) 

00  27  K*1#NLL 

READ!9#1QC3)ADQDB(I#J#K)#ATYPB(X#J#K)#XCTYB(I#J#K) 

WRITi(*#10O3IA0ODB(I#J#Kt#ATYPB(I#J#K)#X9TYB(l>JfK) 

27  CONTINUE 

C  USING  UNIT  NOMENCLATURE  AND  DEPARTURE  TINE 
READ(9#999HATY!I)#I-1#7) 

WRITE!*#  999) CATY! I )# I"l#7) 

READ  <  ’>#1000)  NS 
WRITE!*# 1000 ) NS 
DO  30  I"1#NS 

C  USING  UNIT  DEPARTURE  TINE#  NUMBER  OF  TRUCKS  AND  UNIT 
READI9#1115)AT( I )#AUNIT 1 1 1 


mt  FomumiinMitifAUi 

ATT  MAVIS) 

cau  rlac<i»attx#i#z#o> 

CAU  MUNSVIAUNITUUII) 

NTIIMMITIIS) 

WR1TII4#100S)AT( l)#NTIl)#AUMITt I) 

100S  RQRHAT(2X«R1O.9#IX#I9#2X/A10) 

NTT-NTI1) 

00  10  M1#NTT 

C  TYRE  Of  TRUCK  AND  NUKIIR  OK  CHIT  SHUT  ENTRIES 
ATKtI#J)>ATKB(II*4) 

NL(I»J)*NLIf II#J ) 

1010  RORHAT(2X#A10#2X#IS) 

WRITE(4»IQ10)ATK(1»  JI»NL(  I#tl I 
NLL»N1U#4I 

C  CHIT  SHUT  INTISIS  ST  DQOC#  ISSUE  TYRE (PALLET  OR  BOX)#  ANO  QUANTITY 
00  10  K*1*NLL 
A000(I»4#K)*AD0DB(II#4#K) 

ATVR<l«4»K)«ATVRI(tZ»4*K| 

XOTYI 1*4»K)»XQTYIIXI#4*X) 

C  CONVERT  TO  NUHISR  OR  ROUNDS  SH  ISSUE  ' 

CALL  C0NV(RAC#AD0D(1#4#K)#ATYR( I* J#K) ) 

WRITE  (4#111S)AD0D(I#4#KI#ATVP(I#4*K)#XQTY(I*4#K)#RAC 
111S  RQRNATUIX#tU10»tX)#IIRll«A#tXm 
XQTYI1# J#K)»f AC*XQTY(I# J#K) 

SO  CONTINUE 

C  INITIALIZATION  OP  AS*  STATUS  RARANETERS 
ZSOAY-O 
TOUSMYIO. 

T0AWN»1AA0» 

NS"0 

NIQ-0 

N1S*0 

NCH«0 

HQH-0 

NCH-0 

NQN-0 

NCL(l) "0 

NCL(2)*0 

HQLID-0 

NQL (2) *0 

NCA*0 

NQH-0 

NOT-0 

NOO'O 

NOO-0 

NHL-NHO 

00  110  1»1#100 
Nicm-o 
HIT«n«0 
NSHl X)«0 
NSHID-O 
DO  109  4X*1#2 
NSL4(4X#X)«0 
109  CONTINUE 
NCTII )*0 
NCim-o 
NCC(I»*0 
NTC(X)*0 
NCTTII#1)«0 
NCTTt I<2 l«0 
NCTTtl# J)«0 
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NCTT(l#4)*Q 
NCTT(X#ll«0 
NITTU  )«0 
N0T0m«0 
Nocm«o 

DO  110  J  "If 60 
NPCN*I)-0 
NPS ( J# 1 )  *0 
110  CONTINUI 

00  120  I"l#200 
.  HUP(Z)«0 
NNSIX|«0 

Nsom*o 

TSK  I)«0* 

TESm-O. 

TSDIIKTTBIO 
TK  D ( I) *0* 

Tswm-o. 

TEWl I)«0« 

120  CONTINUI 

DO  ISO  I'liIO 

NQVim«0 

NGC(I)"0 

NGCT<I)-0 

Nsrm-o 

NGL { I ) >0 
NGSm-0 
130  CONTINUE 

00  140  I«1#S 

Niscm«o 

Nisun-o 

140  CONTINUE 

DO  190  I"l«30 
IHHSd  )«0 
190  CONTINUE 

00  199  I>1»60 

nop  i  i  i«o 

199  CONTINUE 

DO  160  I"l#50 
00  160  J-l#19 
ISP(I#J)»0 
I SS  ( I#  J  ) - 0 
NLIPtI* J  )«0 
00  160  M 1*20 
IPSU(I#J#K>«0 
ISTC(I»J»K>-0 
Xl9TYUiJ#KI«0. 

160  CONTINUE 
RETURN 
END 

SUBROUTINE  POUNIT I AQ# 1 1 

CQHNON/UNITS/NUNIT* ATITLE (20)»DG0( 20) »DRTNt 20) »1RSP#  XLSP 
LIVE!  2# AO 
00  10  I*1»NUNIT 
IPIAQ*  BO.ATITLEf I ) ) RETURN 
10  CONTINUE 
IaNUNXT 
RETURN 
END 

SUBROUTINE  CONV(FAC# AD, AT) 
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r»  r»  r>  r»  non 


C  NUMII  OP  ROUNDS -IN  ISSUI 

CONJIINmOCKS/NU#AO0De<IOO)#XiIQ(tOO)>XLIRt2OO>»NL|P(2OO) 

4«uHoitt«)i»Dixitniiximittoi 

LEVEL  2#  AD#  At 
OININSSON  ATYM2) 

DATA  ATYP/IOMBOM  #10MPALLIT  t 

Mdli 

00  10  1*1# NIL 
IPUD.IG.ADOOCIinGOTO  20 
10  CONTINUI 
RETURN 
20  CONTINUI 

IP(ATtEQ«ATYP(l))FAC*XRDBX(I) 

XP<AT«IG#ATVP(2nFACa|BXPim 
MTURN 
2ND 

SUOROUTINI  PLAC(X#AT#N1#N2#NS) 


PLACES  EVENT  IN  GASP  RIPIRINCE  FILE 

COMMON S6C0P1 /A TRIG ( 29 )#JEVNT#MPA#MFE(  110)#MLE( 10Q)#NST0P# 
4NCRDR#NNAP0#NNAPT#NNATR#NNPIl#NN0(100 >#NNTRY#NPRNT# 
0PPARM(  200#4>#TNON#TTBIO#TTCLR#TTFIN#TTRIB(29I#TTSET 
LEVEL  2#  AYR  IB 
ATRIB(l)aAT 
ATRIimaNl 
ATR  IK  1  )aN2 
ATRIMAIaNS 
CALL  PILENd) 

RETURN 

END 

SUBROUTINE  EVNTS(IE) 


SUBROUTINE  PROCESSES  CALLS  FROM  TINE-EVENT  FILE  ACCORDING  TO 
EVENT  CLASS  COOING 

COHHON/GCOMWATRIB(29)#JEVNT#HFA#MFE(lJO)#HlE (luO )#NST0P# 
4NCROR#NNAPC#NNAPT#NNATR#NNFlL#NN0(100>#NNTRY,NPRNT# 
aPPARH|200»4)#TN0V#TTIBQ#TTCLR#TTPIN#TTRII(25>#TTSET 
COMMON/CPNS/TDUSK*  TOAWN# IS  DAY 
LEVEL  2*  ATRIB 
TaTNOW 
I«ATRIB (3) 

JaATRIBIA) 

WR I T I  ( 6#  1000 )  T  » I E  #  I  #  <1 
1000  F0RNAT(2X#"E VENT1*# 7X#F10*4>2X« 3(14*2X1) 

IP  I T«GT*TDUSK« AND* ISDAY.LE«0)CALL  CONVP 
XP(T.GT.TDAVN»ANO»I$OAY.GT.Q)CALL  CONVP 
GOT 0(100# 101 #102# 10 3# 104# 10 9# 10ft# 107# 108* 109* 110# 111# 
4112# 111# 114# 119  )# IE 

C  CUSTONIR  LEAVES  UNIT 

100  CALL  L VUN I T G I# T I 
RETURN 

C  CUSTOMER  ARRIVES  AT  HOLDING  AREA 

101  CALL  ONOLO ( X# T ) 

RETURN 

C  SAFETY  INSPECTOR  COMPLETES  VEHICLE  INSPECTION 

102  CALL  INSPI I#T ) 

RETURN 

C  CONVOY  COMMANDER  ARRIVES  AT  OPERATIONS  OFFICE 

103  CALL  I$RQ(  I# T I 
RETURN 
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C  CHIEF  CLERK  COMPLETES  TO  SERVICE 

104  CALL  CCTOS ( I#T I 
RETURN 

C  MASTER  FILE  CLERK  COMPLETES  TO  SERVICE 
109  CALL  HCTOSt I#T) 

.  RETURN 

C  LOCATOR  PILE  CLERK  COMPLETES  STOCK  SLIP  SERVICE 
106  CALL  LCTOSE Z# J»T ) 

RETURN 

C  CHECKER  RELEASED  PROM  HOLOINO  AREA  WITH  TRUCKS  AND  STORE  SLIPS 
10?  CALL  TASSP(IfT) 

RETURN 

C  CHECKER  COMPLETES  ROAD  TRIP  TO  AMMO  PAD  WITH  TRUCKS 

105  CALL  TCRPD! I#J*T) 

RETURN 

C  CHECKER  COMPLETES  LOADING  SERVICE  AT  AMMO  PAD 

109  CALL  TCLPD(I#J#T> 

RETURN 

C  CHECKER  ARRIVES  AT  CGNVOV  BUILD  UP  AREA 

110  CALL  TACBA(I»T) 

RETURN 

C  CHECKER  ARRIVES  AT  OPERATIONS  OFFICE 

111  CALL  CKSROtl*  T  ) 

RETURN 

C  CONVOY  COMMANDER  ARRIVES  AT  SRC  OPERATIONS  OFFICE 

112  CALL  CQSROt I«T ) 

RETURN 

C  CUSTOMER  COMPLETES  SRO  OUT-PROCESSING 

113  CALL  COCMPC I#T» 

RETURN 

C  USER'S  CONVOY  ARRIVES  BACK  AT  UNIT  AREA 

114  CALL  MISC ( I#T) 

RETURN 

C  RESUPPLY  OP  LINE  ITEM  STQCKAGE 
119  CALL  SUPPLI ) 

RETURN 

END 

SUBROUTINE  CONVP 

COMMON/ GCQMl /ATR IB ( 29 )« JE  VNT#MPA»MFE ( 100 )#MLE ( 100 1* MS TOP# 
ONCRDR#NNAPC#NNAPT#NNATR#NNFIl#NNQUOOJ#NNTRY»NPRNTj 
QPPARM(20O»4|,TN0W#TTBEG»TTCLR#TTFIN#TTRIBI29l#TTSET 
COMM ON /UN  ITS /NUN  IT#  AT  I  TIE ( 20 ) »  DGO( 20 ) » DRTNl 20 ) / IRSP»ILSP 
C0HM0N/SITES/DST(6G#60)# IA5P#NFSU»NSTACM60I#  ADQDX<60#20)# 

Q ALOTX (60* 201* XSQTYE 60*20) 

COMMON/OPNS/TDUSKjTDAWN*ISO 
LEVEL  it  ATRIB 
LEVEL  2t  OST 

C  RATIO  OP  DAYLIGHT  TO  NIGHTTIME  ROADWAY  SPEEDS  FORWARD  OF  LIGHT  LINE 
DATA  RW#  AR/2 ■# 1«  979/ 

IASX-I ASP 

WRITE! 6# 1000 > ISO# TO AWN* TDUSK 

1000  FORMAT (2X» 'ROADWAY  SPEED  CHANGE »#2X# litltt 'TDAWN' , It,  FiO. 4, 

O' TDUSK* #2X#F13«4) 

IF ( ISO  *LE  *0 ) GOTO  10 
C  PASSING  FROM  DAWN  INTO  DAYLIGHT 
ISO-O 

TDAWN" TD A WNt 1440* 

C  DAYTIME  ROADWAY  SPEEDS 

DO  9  K"l»4 

PPARN(IRSP#KI"PPARM(IRSPiK)*RW 
PPARM!IASX»K)"PFARM!IASX*K)*AR 
5  CONTINUE 

WRITE!6#1001)ISD#TDAWN#<PPARM!IRSP»K)#K"1*4)» ( P FARM I 1ASX»K)»K"1»4) 


71 


oooo 


1001  FORNATfIX#  *DATTINI  SPIID*#2X#  II#2X# 'NEXT  TOAWN •# IX# FX0.4/2X# 

Q'ROAD  SMIO'iH2llfP10iM/m'ASF  SPEED'#*!  2X#P10.4> ) 

RITURN 
10  CONTINUE 

C  A ASS  IN®  PROM  DUSK  INTO  NIGHT 
ISO-l 

TDUSK»TDUSXal440» 

C  NISHTTSKI  ROADWAY  SPEEDS 
DO  19  K«l#4 

PPARN!!RSP#K)aPPARM! 1RSP#K)/RW 
PPARM! I ASX#K ) *PPARM( I ASX#K) / AR 
19  CONTINUI 

WR1TEI6#  1002) ISO# TDUSK#  (PPARM!  IRS P»K)#K" !#*)#(  PPARN(  IA5X#K)#K«l#<t) 

1002  F0RHAT(2X# 'NIGHTTIME  SPEED* #2X# 12# 2X#  'NEXT  TDUSK'#2X#F10.4/2X# 
Q'ROAD  SPIED'#4(2X#F10»4)/2X# ' ASP  SPEED'#*!  2X#F10.*M 

RETURN 

END 

SUBROUTINE  LVUNIT(II#T> 


C0MM0N/UNITS/NUNIT#ATITLE(20)#DG0( 20)#DRTN!20)#IRSP#XL$P 
COMMON/OEMAND/NS# AT! 90 )#  AUNIT! 90)#  NT! 90I»ATK( 5 Oa 15 1 » NL { 90> 19  )# 
QADOD(90#19#20) 

LEVEL  2#  NS 
00  10  I*1#NUNIT 

IFC ATITLEC  II.EO.  AUNIT!  IinGOTO  20 
10  CONTINUI 

WRITE! 6^ 1000  III 

1000  FORMAT ( 2X# "ERROR  IN  USER  LEAVING  UNIT"#2 X# 13 ) 

RETURN 
20  CONTINUE 
DISTaOGOm 
T1«UAN0AN(IL$P#1> 

TSaTlP(0IST/RN0RMURSP»in*60. 

CALL  PLAC! 1#TS«2#II#0) 

WRITEC6#  9C0CIII# ATITLE  <Z>#T1#DIST»TS 
3000  FORMAT! 2X# 'CONVOY* »2X# 12# 2X# 'DEPARTS  UNIT'#2X# A10#2X# ' AT'#2X#F10.* 
0#2X#'TRAVEL'#2X#F10»4#2X# 'ARRIVE  ASP'#2X#F10.*> 

RITURN 

END 

SUBROUTINE  GHOLO!I#T> 


CONVOY  ARRIVES  AT  ASF#  PASS  CO  TO  SPO  AND  INITIATE  SAFETY 
INSPECTION 

CQHNQN/H0LDA/NIQ#NIC(10Q|»NIT(100) 

COMMON/ INS P/NIQ#NIS#NISC(9)#NIST!9) 

COMMON/ DEM AND/ NS# ATI  90 )# AUNIT!  303# NT C  50 1#ATK| 50#19t» NL  C 90# 19)# 
QA0Q0(90#19#20I 

COMMON/ AT  I  ME/ IT IV#ITIA#ITA#ITIE#ITIL#ITBO#ITRO 
COMMON/HQAR/DOA#DOQ# ICO# ICK 
LEVEL  2#  NS 
C  INCREASE  NUMBER  OF  CONVOYS  AT  ASP 
NS*NSU 

CALL  GPL0TX(1.#T#2I 
WRITE !6#3000)I#NS#T 

1000  FORMAT! 2 X# 'CONVOY '#2X# 12# 2X# 'AT  ASP*#2X#I2#2X#FlO»*l 
CALL  TIMS!'ASP-'#'N/CN'#1#T) 

ATIIlaT 

CALL  EAVT!'ASP-'#'A/CN'#T> 

C  TIME  FOR  CONVOY  COMMANDER  TO  REACH  OPERATIONS  OFFICE 


A 
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C  NORMAL  DISTRIBUTION  . 

TSiUtDQA/RNQRNf  XCO#l)  )**0. 

CAU  PLACU#TS#A#X#0) 

HAITI (A# tOOl) If TS 

SOOl  P0RHATt2X#»C0NV0Y  COMMAND IR'#2X#I2#2X#  *AT  OPNS •# 2X# P10.AJ 
C  CHICK  TOR  SAMTV  IkSPICTION  OUIUI 
NTT«NTf l) 

CALL  TINS<«HLD-«#*N/TK*#NTTfT) 

CALL  TIHSMASP-*#»N/TK'#NTT#TI 
XNTT-NTT 

CALL  HISTOIXNTTfl) 

CALL  GPLOTXIXNTT#T#l> 

CALL  GPLOTXIXNTT#T#3) 

IP(NIQ«IQ*Q)0QT0  10 

C  OUIUI  IXISTS  AND  JOIN  TRUCKS  TO  OUIUE 
NLI«1 
00  TO  20 

C  OUEUI  NOT  IXISTS  AND  ASSIGN  INSPECTOR  TO  TRUCK 

10  CONTINUE 

IPINIS.EQ.OKALL  QSTATMH1NSP#0#5#0#T) 

DO  19  4»l#NTT 
IP(NIS«OE*NIO)OOTO  II 
DO  12  KX«lfN10 
IP(NISCUI).E0.0)G0T0  II 

12  CONTINUE 
GO  TO  II 

13  CONTINUE 

CALL  Q$TAT<AHINSP#0#1#0#T1 
CALL  QSTAT(4HINSP#0#2#0#T) 

CALL  TINSMHLD-*# *N/SP*#1#T) 

CALL  HISTOiOtf 2) 

NISaNXSAl 
NISG(KI)«I 
NIST  CKX 

T$>mNORN(ITIVfl) 

CALL  PLACd# TS#3f KXf 0) 

HRITKAf  1002  )KIf  If  Jf  TS 

9002  PORNATtlXf 'INSPECTOR'# 2X# 12# 2X# * CONVOY1 #2Xf 12# 2Xf 'TRUCK *#2X# I2#2X» 
Q'D0NI*#2X#  P10.4 ) 

19  CONTINUE 
RETURN 

11  CONTINUE 
NLI*J 

C  PLACE  REMAINING  TRUCKS  OP  CONVOY  IN  SAFETY  INSPECTION  QUEUE 

20  CONTINUE 

DO  29  IJ-NLIfNTT 

CALL  QSTATt AHINSP# 0# I#  NIQ# T ) 

XNtQaNlG 

CALL  HISTQ(XNIQ# 2) 

NIO-NIQil 

NIC(NIG)-I 

NIT(NIGI«IJ 

WRITE ( 6# 3003) I# I J#N IQ 

9003  FORMAT (2X# 'INSPECTION  QUEUE* # 2 X# 'CONVOY'# 2X» 12# 2 X# *TRUCK*2X# 12# 2X# 
Q'PLACE'f 2X# 12) 

29  CONTINUE 
RETURN 
ENO 

SUBROUTINE  6P10TXIXNTT# T# I ) 

COMMON/PLOT/XNUO) 

XN( I  )*XN( I )+XNTT 
CALL  6 PLOT) XN# T# 1 ) 
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RETURN 

INO 

SUBROUTINE  EAVTI AQ#A$#T) 

CQHHON/EAVI/NOV# ANM(29)#I$H(29)#A0VI(25#2) 
INTEGER  AO# AS# AOVI 
00  10  I0*1#N0V 

IP<AOVEIIO#l).iQ.AO.AND.AOVB(IO#2).EQ.AS)OQTQ  20 
10  CONTINUE 

WR!TE(*#3000!AQ# AS#T 

3000  FORMAT  I IX#  'EAVT  CALL  ERR0R'#2X#2A4#2X#F1Q,4) 
RETURN 

20  CONTINUE 

IF (IS HI  10) «8Q*0)OOTO  21 
CALL  C0LCIA0#AS#T-ANMII0I#T) 

21  ANH(IO) *T 
ISM (10 1*1 
RETURN 
INO 

SURROUTINE  INSF(II#T) 


SAFETY  INSFECT10N  COMPLETE S  INSFECTIQN  OF  VEHICLE 
CQHMON/HQLDA/NIQ#NIC(100)#N1T(100) 

COMMON/ INS P/NIO#  N IS#  Nl$C(9)#NIST(9) 

COHHON/STATUS/ISF ( 90#19>#ISS< 90# 19 )  , 

CQHMON/ATIMI/ITIV#  XT IA# ITA# ITI 8# IT IL# XTBQ# ITRQ 
NR ITE(6# 1010)11#  T 

3010  F0RHATI2X# 'INSPECTOR '#2X# I2#2X# 'DONE' #2X#F10. 4) 

C  FIND  CONVOY-TRUCK  JUST  INSPECTED 
CALL  QSTAT(4HINSP#Q#3#0#T) 

I-NISCUI) 

4»NIST(XI) 

WRITE  16# 3000) II# 1#J#T 

3000  FORMAT (2X#  *  INS PECTQR '#  2X# 12# 2 X# *D0NE'#2X» • CONVOY'# 2X# 12# 2X# 'TRUCK  • 
Q#2X#I2#2X# F10»4) 

C  HOVE  UP  INSPECTION  QUEUE 
IP (NIQ»EQtO ) GOTO  20 
CALL  QSTAT(4HINSP#0#2#0#T) 

NISC(IZ)-NICd) 

NISTI II ) aNIT(l ) 

TS*T*RNORM(ITI V#1 ) 

CALL  PLAC( 1#  TS#  3#  Z I#OI 

WRITE (6#  3000 )II#NIC(1)#NIT(1)*TS 

NIQ*NIQ-l 

IF ( NIQ«EQ«0 ) GOTO  IS 
00  10  1Q-1«NIQ 
NIC ( IQ) "NIC ( 10*1 ) 

NITI IQ)*NIT( IQ#1) 

WRITE! 6# 3001 ) NIC (IQ)#NITIIO)#IQ 

3001  FQRNAT(2X# ' INSPECTION  QUEUE'#2X# 'CONVOY*# 2X# I2#2X#  »TRUCK*#2X# 12#  2X 
0# • PLACE' #2X# IE  I 

10  CONTINUE 

19  NICIN1Q+1) "0 
NITINIQ+l) *0 
GO  TO  30 

20  CONTINUE 

C  NO  MORE  VEHICLES  TO  BE  INSPECTED 
CALL  TINS('HL0-'#'N/SP«#-1#T) 

NISC 1 111*0 
NISTI II ) *0 
NIS-NIS-1 

IFINIS.LE.CICALL  OS  TATI  4HINS  P#0#4#  0#  T I 
WRITE! 6#  3002  1 1 1 


3002  PQRHAT(|X#*1NSPICTQR**2X*II*2X#*FREI*> 

10  CONTINUE 
ISP(I*J)«1 

IF<  XSSt I»4> •CQ*0)Ri TURN 

C  VIHXCI  RIAOT  TO  II  RELEASED  MON  HOLDINO  ARIA 
CALL  CAISP(I#J*T) 

.  RETURN 
ENO 

SUBROUTINE  ISRO(I*T) 

A 


C  CONVOY  CONNANOIR  ARRIVES  AT  OPERATIONS  OFFICE  FOR  INFR0CESS1NG 

COMMON/CLIRKS/NCH*NQH*NSH(1OO)*NCM#NQM*NSM(10Ci)*NCL (2)*NQL(2)*N5L 
0(2*100) 

C0MMQN/AT1MC/XTXV* ITI A*1TA# IT  IE* IT IL* ITBO»ITRO 
CALL  TINS! *OPI>'*  *N/CC*«1«T) 

CALL  WCOLC ( ROFI-F# • W /CC • # !♦> B# T* 1 ) 

CALL  SPLQTX(1»*T*6) 

WRITE(6*S010)l*T 

3010  F0RMAT12X* ‘CONVOY  CONNANOIR** 2X# I2*2X**AT  0FNS«*2X*  '  TIME •* 2X#r 10 .4 
Q) 

C  CHICK  HEAD  CLERK  TO  SEE  IF  BUSY 

IP(NCH»8T .O.OR.NQH.GT .OJGOTO  20 
CALL  8STAT(4HHANC*0» 1*0*T) 

CALL  0STAT(4HMANC*0*2*0*T) 

CALL  QSTAT(4HMANC*0» 3* 0* T) 

CALL  NISTO(0.*I1 
NOH-I 

TS«RNORM( ZTX A* 1 I 

CALL  COt C ( •CPI-** *S/HC**T$*T) 

TS*T*TS 

CALL  FLAC(1*TS*9*Z*0) 

WRITK6*  1000)1*  TS 

3000  FORMAT <2X* ‘HEAD  CLERK»»2X* •C0NV0Y**2X* 12* 2X* *D0NE**2X*F10.4) 

RETURN 

C  JOIN  CUSTOMER  TO  HEAD  CLERK  OUEUE 
20  CONTINUE 

CALL  QSTAT(4HMANC*  0*1*  NCH»T) 

XNCH-NCR 

CALL  HXSTQ(XNCH*3) 

CALL  TIMS(*0FI-***N/HC'*1»T) 

CALL  QC0H*0FI-***Q/HC**X*T#1) 

NCH-NCH+1 

NSHC  NCH) -I 

UR  I  TEC  6* 3001 ) 1*  NCH 

3001  FORMAT ( 2X*  *H|AO  CLERK  QUEUE **2X* *CONVOY»*2X* I2*2X* *  PL  ACE** 2X* 1 2 » 
RETURN 

ENO 

SUBROUTINE  CCTOS(X«T) 


C  HEAD  CLERK  COMPLETES  REVIEW  OF  TRANSPORTATION  ORDER  REQUEST 

CQMNON/CL£AKS/NCH*NQH*  NSH( 100)*NCM*NQN»NSH( 109 )*  NCL (2 )*NQL (2 ) #  NSL 
0(2*100) 

COMMON /DEM AND/NS* AT ( 90 )*  AUNIT( 90 )*NT(90)*ATK(90*19)*NL(3 0*191* 
QAD0D(90*19»20) 

COMMON/ ATI  ME/ ITI V* ITIA* IT  A* 1TIE* IT  It#  ITBO*  ITRO 

LEVEL  2*  NS 

WRITE(6*3010)I*T 

3010  FORMAT ( 2 X # *  HEAD  CLERK  COMPLETES*, 2X* »C0NV0Y**2X* 12*  2 X* *TIMI*»2X*F 
010.4) 

CALL  QSTAT(4HMANC*0*  3*  0 * T ) 
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C  CHICK  FOR  auiui  AT  NASTIR  Fill  CLERK  FOSZTION 
IR<NCR.IT.C.OR.NQR.NI.O)QOTO  10 
CALL  QSTAT(4HRAJC,0#1#0#T> 

CALL  93  TAT t ANNAS C#0#l#0#T) 

CALI  9STAT(AHHASC#0«9#0#T > 

C  RASTER  FILE  CLIRK  MOT  SUSY 
NQH*l 

CALL  9TRC!AUNIT! I)# ATT) 

CALL  CQLCt  *OPI“**  *S/NC  *#ATT#T) 

CALL  HI3T0(0«#4) 

TS-T*ATT 

CALL  FLAC( 1# TS#6# 1*0) 

CALL  OOTV<I#XN> 

WR I TE 1 6#  1000 1 1 # XN#  T  S 

1000  PQRNATdX#  'RASTER  CLERK*# IX* ' CONVOY** IX# 12* 2X#  *L INIS **2 X#F 10 t4# 2X* 
0*00NE'#IX#P1Q*4) 

«fl  TO  10 
20  CONTINUI 

C  RASTIR  FILE  CLIRK  BUSY*  AOO  TO  REQUEST  TO  QUEUE 
CALL  QSTAT (4HNASC#0#1#NCM#  T) 

XNCR'NCR 

CALL  H1ST0(XNCN#4 ) 

CALL  TIHSI'0FI-'#»N/RC'#1*T) 

CALL  9C0L1  *0PI-'#'9/MC'»X» T#1 ) 

NCH»NCH*1 
NJH  INCH 

WRITE!  A/SOOl  H#NCH#NQR 

S001  FORHAT (IX# 'RASTER  FILE  QUIUB'#2X# • CONVOY* # 2X* I 2#2X* » FL ACE *# 2X* 12# 2 
QX# 'CLERK  ASSI6NI0'#2X#I2) 

SO  CONTINUE 

C  CHECK  HEAD  CLERK  QUEUE  FOR  TO  REQUEST  SERVICE 
IF(NCH«NE*0)Q0TQ  AO 
C  SET  HIAO  CLERK  FLAO  TO  NOT  BUSY 
CALL  QSTAT(4HRANC#0#4#0#T) 

NQH«0 

WRITII6/S002) 

1002  F0RNAT(2X**HEA0  CLIRK  NOT  BUSY*) 

RETURN 
40  CONTINUE 

C  ACCEFT  NEXT  TO  REQUEST#  HOVE  HEAD  CLERK  QUEUE  UP  ONE  POSITION 
CALL  QSTAT(4HRANC#0#2#0#T) 

II-NSHU) 

CALL  TIRS('0FI-S*N/HC'#-1»T) 

CALL  QCOl('OPI-***Q/HC'*II#T*-l> 

NQH-II 

TS»RNORM( ITIA/1 ) 

CALL  COLC<'CFI-»*'S/HC'*TS#T) 

TS«T*TS 

CALL  PLAC(1*T$*S#1I*0) 

WRITE (6* 1003 1 1 I*TS 

3003  FOR  RAT (2X# 'HEAD  CLERK *#2X# 'CONVOY* * 2X# 12* 2X# ' DONE '# 2X*  F 10* 4 ) 
NCH-NCH-1 

IF(NCH.EQ.O)QOTO  46 
DO  49  II-l/NCH 
NSHdl  )*NSH(  Il+i) 

WRITE (6# 3004) II/NSHI II ) 

3004  FORRAT (2X# 'HEAD  CLERK  QUEUE 'j2X*'PLACE'*2X*2X#I2*2X*'C0NV0Y'*2X»I2 
Q) 

49  CONTINUE 
46  NSH<NCH*l)-0 
RETURN 
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oo  r> 


END 

SUBROUTINE  ITHC( AQ# ATI 
C0NM0N/0PCT/IATHC<20  )#  XATLCUO) 
LEVEL  2#  AQ 
CALL  PDUNXT(AOfll) 
lAT-lATMCf IX  I 
ATaRNORH(IAT#l ) 

RETURN 

END 

SUBROUTINE  GQTYI If  XN) 


CQMH0N/0EHAND/N$#AT<90)#AUNITC501#NT<S0)#ATK<30#1S)#NL(90#131# 

QAD0D(90#13#2O) 

COMMON/LOAD/ AT YP ( 30# 19#20)#XQTY(90#19# 20) 

LEVEL  If  NS 
LEVEL  2f  ATYP 
DIMENSION  AOtlOO I 
AQ  < 1 1 - AOQD  < If  1# 1 > 

NN"1 

NTTaNT(X) 

DO  10  4*1#  NTT 
NLL»NLU#J) 

DO  10  K«lf  NLL 
DO  9  KI«1»NN 

IFIAQIKD.EQ*  AOOD ( IfJfKII GOTO  10 
9  CONTINUE 
NN'NNd 

AQINN)*ADGD(Xf it K) 

10  CONTINUE 
XN«NN 
RETURN 
END 

SUBROUTINE  MCTOS(IfT) 


MASTER  PILE  CLERK  COMPLETES  T.O.  REQUEST  SERVICE 

COMNON/CLERKS/NCHf NQHf N$H( lUOIf NCNf NQMf NS  Hi  100  If  NCL (2)#NQL(2)«NSL 
Q(lflOO) 

CQNNON/DEMANO/NSf AT(90)fAUNIT(90)fNT(90)f ATK(90fl9)fNL(90fl9)f 
QADODI 90# 19# 20) 

COMMON/ LOAD/ ATYP ( 90f 19f  29 )#  XQTY (90 1 19# 20 1 
COMMON/ST OCRS /NS Of ADOOC ( 200 1# XL IQ( 2001#  XLIR(209)#NLIF(200) 
Q#XLBR0(200 I# XRDBX(200)#XBXPL(20U) 

LEVEL  2#  NS 
LEVEL  2#  ATYP 
WRITE(6# 3010 1 1 f  T 

3010  FQRNAT(2X# 'MASTER  FILE  CLERK  COMPLETES*# 2Xf 'CONVOY'# 2Xf I2f 2X# 'TIME 
Q'#2X#F10»A  I 

CALL  QSTAT<AHMASC#0#3#0#T) 

C  ADJUST  MASTER  PILE  RECORDS  FOR  QUANTITIES  CN  COMPLETED  REQUEST 
NTT-NTH) 

DO  10  IT"1»NTT 
NLL  *NL ( I# I T I 
DO  19  lLal# NLL 
DO  10  IS*1#NSQ 

IFIADODU#  IT#  ILI.NE.AOOOCIIS)  ISOTO  10 

IFIXQTYdf  ITf  ILl.OT.XLlQdSIIXQTYd#  IT#  ILI-XLICIIS) 

XLIOilSI-XLlOHSI-XQTYUf  IT# XL) 

IF  ( XLI0(  IS  I  •  LE. XL  IRUSI.AND.NL  IF  ( IS).  EQ.O)  CALL  REORD  ( IS#  T ) 

WRITE (6# 3000 ) IT# IL# ADODC ( IS )# XQTY (XfIT#ILI#XLIC(IS) 

3000  F0RMAT(2X#'TRUCK'#2X#I2#2X#*UNE'#2X#I2#ZX#'ST0RE'#2X»A10#2X#  'FILE 
Q»# 2X#F10.A#2X#*LEFT»#2X#F12.*J 
10  CONTINUE 


-  . iV'T! 


C  CHECK  FOR  QUEUE  AT  LOCATOR  FILE  CLERK  POSITION 
ICK-0 

DO  12  K«l#2 

IF ( NQL ( K ) .IQ.O.ANO.NCL ( K) .EQ.O) ICK«K 
12  CONTINUE 

IF(ICK.IQ.O)«OTO  20 
C  LOCATOR  FILE  CLERK  NOT  SUSY 

CALL  QSTAT(4HLOCC#1CK#9#0#T) 

CALL  QSTATf4HL0CC#ICK#l#O#T) 

CALL  QSTATf 4NL0CC# ICK#2#0#T) 

CALL  HIST0<0.#9) 

SQL ( ICK )■! 

CALL  GTLC(4UNIT(I)#ATT) 

CALL  CaLCI‘OFI-‘#‘S/LC»#ATT#T> 

TS-T+ATT 

CALL  PLAC tl#TS#?#I#ICK) 

WRITE {6# 3001) ICK# I# TS 

3001  F0RMAH2X# ‘LOCATOR  CLERK‘#2X#I2#2X#  ‘COMPLETES ‘#2X#‘C0NV0Y‘#2X»I2#2 
QX# ‘TIME ‘#2X#F10.4 ) 

CO  TO  30 

C  LOCATOR  FILE  CLERK  BUSY#  ADO  T.O.  TO  6LEUE 
20  CONTINUE 
ICK«1 

IF  <  NCL ( 2 1 »LT  »NCL (II) ICK»2 

CALL  QSTAT(4HL0CC# ICK# i#NCL ( ICK)#  T )  . 

XNCL-NCL(ICK) 

CALL  H1ST0IXNCL#51 

CALL  TINS!‘0FI-»#‘N/LC‘#1#T) 

CALL  QCQL<‘OFI-‘#‘Q/LC‘#I#T#il 
NCL(1CK)*NCL(ICK)+1 
NSL(ICK#NCL(ICK) )■! 

WRITE (6# 3002) ICK# I#NCL(ICK)«NQL (ICK) 

3002  FORMAT (2X# ‘LOCATOR  QUEUE* #2X# I2#2X# *C0NVOY‘#2X#I2#2X, ‘FL ACE *# 2X# 12 
Q#2X# ‘CLERK  ON  C0NV0Y*#2X# 12) 

30  CONTINUE 

C  CHECK  MASTER  FILE  CLERK  QUEUE  FOR  T.O.  SERVICE 
IF(NCN.NE»0)G0T9  40 

C  SET  MASTER  FILE  CLERK  FLAG  TO  NOT  BUSY 
CALL  QSTAT(4HMASC#0#4#0#T) 

NOM-O 

WRITE (6#  3003  » 

3003  F0RMAT(2X# ‘MASTER  FILE  CLERK  NOT  bUSY») 

RETURN 

40  CONTINUE 

C  ACCEPT  NEXT  T.O.  REQUEST  ANO  MOVE  MASTER  FILE  CLERK  QUEUE  UP  ONE 
C  POSITION 

CALL  QSTAT (4HN*SC#0#2#0#T) 

CALL  TIM$I‘0FI-‘#‘N/MC‘#-1#TI 
II-NSMU) 

CALL  QCOLI ‘0FI-‘#«Q/MC*#II#T#-1> 

NQM*II 

CALL  GTMC ( AUNI f ( I )# ATT ) 

CALL  COLC<‘OFI-«#*S/MC‘#ATY#T) 
fS-TfATT 

CALL  PLACU#TS#6#II#0) 

WRITE(6#3004)II#TS 

3004  FORMAT! 2 X# ‘MASTER  CLERK  COHPLETES»#2X#»CONVOY»#2X#I2#PX»»TINE‘#2X# 
QUO. 4) 

NCM-NCM-1 

ifincm.eo.oireturn 

00  49  II«1»NCM 
NSMC  II  >*NSH ( II«-1 ) 

WRITEI6#30u9)NSN(II)#II 
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S009  FORMAT (2X* 'MASTER  QUEUE '*2X*' CON VQY*#2X#  12# 2X#  *PLACE'*2X#I2) 
<.5  CONTINUE 
NSM(NCM*1H0 
RETURN 
ENO 

SUBROUTINE  GTLC(AQ*AT) 

CQMMON/QPCT/IATMCI 20)# IATLCI20) 

LEVEL  2*  AQ 
CALL  FDUNIT ( AQ# 1 1 ) 

IAT«IATLC<II) 

AT  *RNORH( XAT#1 ) 

RETURN 

END 

SUBROUTINE  CASSP(I#J*T) 


C  SUBROUTINE  RELEASES  TRUCKS  WITH  CHECKER  IP  INSPECTION  COMPLETE 
C  LABORERS  AVAILABLE  AND  CHECKER  AVAILABLE 
COMNON/STATUS/ISPOO#  15  I#  XSS(3 0#  151 

COMMON/CKASG/NC A* NCT ( 100) # NCI ( 100) # NCC (100 )# NTC (100 )#NCTT l 100* 5 ) »N 
QLTT(IOO) 

C  ONNON/L ABOR/NHO* NHL* IRLOAD 

COMMON /CHECKER /NGO#NGU#NGC ( 20)#  NGCT (20)#NGT(20)*NGL(20)*NG$(20) 

COMMON/ AT  INI /IT  IV* ITXA* IT A* IT  IE* IT IL* ITBO* ITRO 

NHD-NHO-NHL 

WRITEi 6* 3010  )l#  J* N6U# NHD* T 

3010  P ORM AT (2X* < CHECK  RELEASE'* 2X* « CONVOY'* 2X* 12* 2X* ' TRUCK** 2X* 12# 2X# «C 
CHECKERS  IN  USE«*2X# 12* 2X# • LABORERS  IN  USE •* 2X*  12# 2X* 'TIME **2X 
Q*F10»A ) 

IF (NGU*GE*NGO) RETURN 
C  CHECKER  AVAILABLE 
00  10  IC"1»NCA 
IP(NCT(IC).NE.I)GOTO  10 
NTT-NTCIIC) 

DO  9  IT«l*NTT 

9  IF<NCTT<IC#IT).EQ.J)GOTO  20 
10  CONTINUE 
RETURN 

20  CONTINUE 
WRITE(A*B001)IC# IT 

3001  F0RHAT(2X* • ASG  QUEUE '* 2X* 12* 2X* 'TRUCK'#2X* 12) 

C  DESIGNATED  CHECKER  TRUCK  COMBINATION  FOUND 

DO  21  IT"1#NTT 
ITT«NCTT ( IC#  XT ) 

21  IF(ISP(I#XTT)*EQ«OiQR«ISS(I#lTT ) *EG»0) RETURN 
C  ALL  TRUCKS  WITH  CHECKER  COMPLETE  INSPECTION 

NL-NLTTUC) 

WRITE (6#  3002 )NL#NHL 

3002  FORMAT ( 2X» 'LABORERS '# 2X*' AS G»#2X# 12# 2X#» ON-HAND »»2X# 12) 

IF (NLt  6T (NHL ) RETURN 

C  LABORERS  AVAILABLE 

C  RELEASE  CHECKER  WITH  TRUCKS  AND  LABORER 
DO  22  NG»1#NG0 
IPINGC (NG)»EQ»0)GCTO  23 

22  CONTINUE 
RETURN 

23  CONTINUE 
NGU«NGU+1 
NCC(NG)-I 
NGT(NG)>NCC(IC) 

NGCT(NG) aNCI( IC) 

00  29  1T-1»NTT 

I IT »NCTT ( IC# IT  ) 

ISPU*  IIT)>2 
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29  CONTINUE 

NHL ■ NHLaNl TT( XC I 

WRITE (If IOOI INI#  X#NTT#NCTT(IC#l)#NCTTIIC#2t#NCTT(IC#3)#NLTT( XC ) 

3003  FORMAT! IX#  (CHECKER*# 2X# 12# 2X#*CONVOY'#2X# 12# 2X# 'NUMBER  TRUCKS *#2X# 
QI2/2X# (FIRST  TRUCK*#2X# X2#2X# 'SECOND  TRUCK*# 2X#I2#2X# (THIRD  TRUCK* 
Q#2X#X2#2X#'LAI0RERS'#2X#I2) 

CALL  QSTAT(4HCKAG#0#2»Q#n 
CALL  QSTAT(4MCKAQ#0#S#O#TI 
C  CLOSE  UP  CHECKER  QUEUE 
NCA«NCA-1 

IF (NCA*E0*0)CALL  QSTAT(4HCKA«#0#4#0#T) 

IF (NCA«EQ«0)GOTO  30 
DO  27  II*XC#NCA 
NCTUI)-NCT(II«1) 

NCI(II)«NCI(lXfl) 

Nccfin«NCC(iXA;> 

NTC(in«NTC(im> 

NLTTUn»HLTT(IiU> 

NCTTIXl#U»NCTT(lin#i> 

NCTT!XI#2l«NCTT(XI*i#2l 

NCTT(IX#3)«NCTT(II41*3) 

NCTT(II#4>«NCTT!Il4l#4l 
NCTT( I Z»  9) •NCTTI 1 141# 5) 

27  CONTINUE 

30  CONTINUE 
NCT(NCA4l)>0 
NTCCNCA4l)«0 
NCI(NCA4l)«0 
NCC(NCA4l) «0 
NLTT(NCA+l)-0 
NCTT(NCA4l«l)>0 
NCTT(NCA4l#||«Ci 
NCTT(NCA4l#3l*0 
NCTT(NCA4I#4)«0 
NCTT(NCA4i#5)*0 

C  ASSIGN  DEPARTURE  TINE 
TS«T4RN0RH(ITA#1I 
CALL  PLAC ( 1#  TS#8#NG#0 ) 

WRITE (6#  300AIN0#  TS 

3004  FORMAT ( 2X# 'CHECKER '# 2 X# I2#2X# 'DEPARTS '# 2k# F10> 4) 

RETURN 

END 

SUBROUTINE  LCTO$(I#J#T) 


CDMMON/S  TATUS/ISP (90#L9)# ISS (90# 19 ) 

C0MNQN/DEHAND/NS#ATt5Q)#AUNlT(50)#NT(5O)#ATK(S0#19)»NL(5O#15)» 

QADDD(50#19#20) 

COMMON SCLERKS INCH# NQH#  NSH( 10Q)»NCM»MQN#NSM( 100)>NCL(2  >#NQL (2 )»  NSL 
0(2/100) 

LEVEL  2*  NS 

CALL  TIHSI»0FI-'#'N/CC*#-1#T) 

CALL  WCOLC( 'OFI-*#«U/CC'# 1435# T#-l ) 

CALL  GPL0TX(-1,#T#6I 
WRITE(6# 30101 J# I#T 

3010  FORMAT (2X# (LOCATOR  CLERK' #2X#I2/2X# 'COMPLETES • /2X/ 'CONVOY*# 2X# 12 
0/2X# *TIME'#2X#F10«4) 

CALL  0STAT(4HLOCC#J#3»O#T) 

IF( NCL  < J ) *9T *01  GOTO  10 
C  NO  MORE  T.Ot  IN  LOCATOR  FILE  QUEUE 
CALL  QSTAT (4HLCCC/ J/4/0/T ) 

NOUJI-O 
GO  TO  20 
10  CONTINUE 
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C  PROCESS  NJJXT  T*0#  IN  LOCATOR  MU  QUEUE 
CALL  QSTATI4HLCCC/J/2/0/TI 
CALI  TINS(»OPI-»/'N/LC»/-l/TI 
U>NSL(J/1) 

NOL(J)«II 

CALL  QCOL(‘OFI-'/'Q/LC»/II/T/-i) 

CALL  6TLC(  AUNIT(  D/ATT) 

CALL  COLC( •CFI-*#*S/LC,#ATT#TI 
.  ...  TS-t^ATT 

CUL  PLACil/TS/T/II/J) 

NCm>-HCl(JI-l 
,  WRJiTSIA/SQQOd/  II/JS  . 

3000  FORHa'MIX/ 'LOCATOR  CLERK' / 2X/I2/2X/* STARTS '/2X/* CONVOY */2X/ 12/ 2X/ 
0'CONPLITE«/2X/F10.4) 

I F ( MCL ( J I »EQ*Q) GOTO  16 
NCLL-NCL(J) 

00  17  II-l/NCLL 
NSL(J/lll«NSLN/ItPl) 

WRITE(6/3001)NSL(  J/ID/II 

3001  F OR N AT (2X/* LOCATOR  QUEUE »/2X/  'C0NV0V/2X/ 12/ 2X/  'PLACE'  /  2X/ 12 i 
17  CONTINUE 

16  NCLL**fiCL^J|) 

NSL  (J/NCLL+1)*0 

20  CONTINUE  . 

CAlL  CKFUNCfl/T) 

NTT-NTCII 
00  21  IT-1/ NTT 
ISS  (1/ X T I  —  1 

IF(ISP(I/IT)«EQ«1)CALL  CASSP( 1/ IT/T) 

21  CONTINUE 
RETURN 
END 

SUBROUTINE  CKFUNC(I#T,I 


CQHH0N/DENANDAN$/AT<50)/AUNIT(50>/NmC)/ATK(50/15)/NL(  50/15)/ 
QAOODt 50/ 19/20 ) 

COMMON/LOAD/ ATYFt  90/ 19/20 )/ XOTY (90/ 19/20 ) 
COMHON/SIT£S/DST(60/60)/IASP/NPSU/NSTACK(60),/ADODX  (60/20)/ 

QALOTXt  60/ 20)/X$QTY( 60/ 20) 

CONHON/CKASC/NCA/NCT (1001/ NC I ( 100) /NCC(100 )/ NTC (100  >/NCTT ( 100/ 5) »  N 
QLTT(iOO) 

C0NNQN/0FCK/NCK(2O )/NLB(20/lQ)/NTK(2Q/10)/ITK(20/10/5)/NSP(20»10)/ 
RNFS XJ20/ 10/10 ) /NP T ( 20/ 10/ 10 1/ AQT ( 20/ 1 0/ 10) /  NIX  (20/ 10/10  )/NLX(  2U/ 1C 
'  Q/lOi 

LEVEL  2/  NS 
LEVEL  2/  OST 
LEVEL  2/  NCK 
NTT-NT(I) 

WRITE (6/3010) I/NTT 

3010  F  OR  RAT  (2  X/,  »  A  SS  (ON  PICKUP* / 2 X* »C  0NVCY*/2X/I2/2X/  'NUMBER  TRUCKS'/2X/ 
Qi2)  .  j  .  . 

IF (NCA «IQ*0)CALL  OSTAt ( 4HCKAS, 0/ 5/ 0/T ) 

CALL  FQUNIT(  AUNIT.il )/ 1 1 ) 

Ncu-NCNdir 
DO  40  IC-l/NCU 
NSTOP«NSP(II/IC) 

CALL  Q’STAT(ANCKAG/0/l/NCA/T) 

XNCA«NCA  .  . 

CALL  HIS.TO (XNC A/6) 

NCA-NCAU 
NCT(NCA)>I 
NCI (NCA)  •! I 


fll 


non  a  on 


NCC(NCA)«IC 
NLTT(NCAimOtlI#IC> 

MTCt  NCAl'MTKt  II#  XC I 
NTT«NTC(NCA> 

DO  >0  ST*1#NTT 
NCTTINCA# IT)»ITK( II# ZC# IT ) 

ITT»ITK<II#XC#!TI 
SO  CONTINUE 

WRITBIA#S000INCA#NCT(NCAI#NTC(NCAI#NCTTfNCA#il#NCTT(NCA#2l#NCTT(NC 

QA#3)#NLTT(NCA) 

3000  F0RMAT(2X#'AIC-CHECKIR  BUEUI*#2X#  *FLAGE**2X#  I2#2X# 'C0NVQY*#2X#  12# 2 
QX# 'TRUCKS <#IX# 12 /2X» 'FIRST  TRUCK *#2X# 1 2#2X# 'SECOND'# 2X# I2#tX# 'THIR 
QD'»2X# I2#2X# 'LASORCR  *#2X#12) 

AO  CONTINUE 
RETURN 
ENO 

SUIROUTINI  SSLIFt 1# J#IK#J0#KK# ISS) 


SUBROUTINE  ESTABLISHES  STORE  SLIT  FOR  TRUCK 
CONNON/LOAD/ATYF(9O#19#20)jXQTY(9O# 19#20 ) 
C0NM0N/ST0RES/NLXF(90»19)#IFSU(90# 19# 20)# I STC (90# 19# 20 I 
COMMON/ STORE  1/ XLOTY (90* 19# 20) 

CQMMON/S ITES/DST(4Q* AO )# IASF#NFSU#  NSTACKI 60)# AOODX(4O#20)# 
QALQTX(40#20)#XSQTY(60#20) 

COHNON/LABOR/HHO# NHL# IRLOAD 
LEVEL  2#  ATYR 

LEVEL  2#  HLIR  L 

LEVEL  2#  XLOTY 

LEVEL  2#  DST  J 

IFSU( I#J# ISSI*JO  i 

I STC ( I# J# ISS l«KK 

IF (XS9TY( JO#KK)*GE*XQTY( I*J#IK) >  GO  TO  10 
XLOTY( I#J#  ISSI'"X$QTYI40#KK| 

XQTY(I#«)*IK)*XQTY(X#J#IK>-XSQTY(JQ#Kk) 

XSOTY(JO#KK) "0* 

GOTO  20 
10  CONTINUE 

XSQTY( JO#KK)aXSOTY( JQ#KK)~XQTY(  I# J*IK ) 

XLOTY(I#J*XSS)«XQTV(I# J# IK) 

XOTYI I#J# IKI«0« 

20  CONTINUE 

UR  ITS  1 6#  3001)  I#  J#  ISS#  IFSU(  I#  J#  ISS )  *  !STC(  I*<J#  ISS  )#  XLOTY!  I#  J#  ISS  I 
3001  F0RMAT(2X# ' $TQRI“SHF'#2X# 'CONVOY*  # IX# 12# JX# ' TRUCK *#2X# 12#  2 X# • STOF 
q«#2X#I2#2X# 'FSU*#2X#I2#2X# 'STACK'#  2X# 12# 2X#  *QTV'#2X#F10#A) 

RETURN 

ENO 

SUIROUTINE  TASSFI IC#T > 


CHECKER  RELEASES  FROM  HOLDING  AREA  WITH  TRUCKS  AND  STORE  SLIFS 

COMMON /DEMAND /NS# AT ( 90)# AUN1T( 90)#  NT ( 90 )#  ATK( 90#ll ) #NL( 90# II) # 
OADODt  90# 1 9 # 20 1 

COMMON /CHECKER /N80# NS# NSC ( 20 )»N OCT  (20)#NOT(20)#M8L(20)#NCS(20) 
CQMMON/STORES/Nl IF ( 90# 19 )# IFSU( 90# 19#  20)# I STC ( SO# 1 9# 20) 

COMMON /S TORE L/ XLOTY (90# 19#  SOI 

COHMON/SITES/OST (60*601# IASF*NFSU#NSTACK(60)#AD0DX(40#20)# 
OALOTX(AO#20I#XSOTY(AO# 201  ' 

GOMHON/OFCK/NCK(20l#NLI(20#10)#NTKf 20#10)#ITK(20#10#9 l#NSF(20#10l# 
QNFSXI20# 10#10)#NFT(20# 10# 1O)#AOT(2O#1O#1O)#NBX(2O#10#1O)#NLX(2O# 10 
0>10l 

LEVEL  2#  NS 
LEVEL  2*  NLIF 
LEVEL  2#  XLOTY 
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LEVEL  «#  OST 
LEVEL  t#  NCR 

C  FIND  FIRST  PSD  STOP  FOR  CHKCKIR-  TRUCKS 
lt«NOCTfIC) 

ICC-NGTIXCl 

NTKX«NTKIIX#XCC) 

NLBX«NLB(II*ICC) 

CALL  GPL0TX(-1.#T#8) 

XNLBX>NLBX 

CALL  GPL0TX(-XNLBX#T*9) 

CALL  TINS(.'HLD-'*'N/TK'#-NTKX#T) 

CALL  TINS('lDA-'#'N/TM#NTKX#n 
CALL  TIHS( 'IDA-'# *N/CK'#1*T ) 

CALL  TINS(»LOA-'#'N/LB'#NLBX#T) 

CALL  MCOLC4  'LDA-»# 'V/CK'# IC*TO#T#l) 
l-NGC(IC) 

XHTKXfNTKX 

,  .  CALL  CPLPTI<-XNTKX#T#3) 

CALL  «PL0tXlXNTKX#T*4) 

DO  3  ITT«1#NTKX 

CALL  CCLC(«HLD-'#»W/TK'#T-ATm#T) 

3  CONTINUE 

CALL  EAVT('HLD-'#'0/CK'#T) 

IF»NPSX( II#  ICC*1 ) 

DXT*D$Tt 1* IF ♦ 1 ) 

DO  4  ITC-1#NTKX 
JCaITK(Xl# IC  C  > I T  C ) 

CALL  OCOL l 'LOA-' # 'TRVD'»I#JC#DXT*T#1) 

4  CONTINUE 

C  FIND  TINE  AND  ASSIGN  ARRIVAL 
IASX»IASP 

TS-(OXT/RNQRN(  IASX*  1)  >*60. 

CALL  TCQLC*LQA-'#'T/CK'#IC#TS#T#1) 

TS-TS*T 

CALL  PLAC(1#TS#9#IC#  1) 

NGLIIO-O 
NGS( IC )«0 
JaXTKI II# ICC* 1 ) 

URITEI6# 3001IIC*I#J#IF»DXT*TS#NLBX 

3001  FQRNAT (2X# 'CHECKER'#  2X# 12# 2 X#  *  RE LEASED  FR  HOLDING  AREA'#2X#'C0NV0Y 
Q'#2X#I2#2X#'FtRST  TRUCK' #2X# 12# 2X# 'FIRST  ST0P'#2X#I2#2X# 'DISTANCE* 
Q#2X#F10t4»2X#lTINE'#2X#P10«4#1 LABORERS' #2X#I2) 

RETURN 

END 

SUBROUTINE  TCRPDI IC# IS S# T I 


C  CHECKER  COMPLETES  ROAD  TRIP  TO  ANNO  PAD  WITH  TRUCK 

CONHON/DENAND/NS#  AT ( 90 )#  AUNITI90 )#  NT  1 901# ATKt  90* 19)#NL(  90* 19 )# 
QADOD(90#19#2O) 

CONHON/LOAO/ATYP ( 90# 19*  20)#XQTY(90#19*20) 

COHNON/STORES/NL IP ( 90# 19 ) * IFSUt  90# 19# 20)#ISTC ( 90# 19# 20) 
CONNON/STOREL/XL  QTT( 90*19*20) 

COnNON/S!TES/DST(6O#6GI#IASP#NFSU#NSTACK(6O>#AD0DX<6O#2O)# 
QAL0TX(6O#20 l#XSQTV  C60#20) 

COHN ON /CHECKER /N GO#  NG#NGC (20)#NGCT(20)*NGT(20)*NGL(20)*NGS(20) 
COHHQN/NMHE/NHHEO# IHHE ( 30>*NHHF (60 )# INHFC60#  9) # 

QNTYP ( 30 1# IRNHi (9# 9#20J# IDKE# A0KE(200> 

COHHON/ Pa6s/NQP( 60 )#NPC (60*100 )*NPS (60*100) 

C0NN0N/LA8CR/NH0# NHL# IRLOAD 

CONNON/OFCK/NCK(20)#NLB(20#10)#NTK(20#10)#ITK(20#10#9)*NSP(20#10)* 
QNFSX (20* 10#10)#NPT(20# 10# 10)#AQT(20#10#10)#NBX(20#10#10)#NLX(20»10 
0*10) 
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I 


CONNON/ATINf /XTlihlTXA*  JTA#  2TII#XTtl#  ITIOi ITRO 
KVIl  1#  NS 

A?tS 
Nil  A 
XLOTY 
OST 
NON 
NCN 


I# 

1# 

Si 

It 

it 

it 


IIVII 

tivu 

IIVII 
IIVII 
IIVII 
LI  VII 

CALI  TXNS<HDA«*i»N/FS*il#T» 

1 *NOC  tXC ) 

II *NGCT( IC ) 

ICC'NOTflC) 

XF-NFSXtXIiXCCjISSS 

J-ITKUIitCCil) 

IS*ISTC( I* Ji XSSI 

vstTsitiiooiiieiissiiiJiiMSir 

1001  F0RNATI2Xi»CHECKER»#2XiI2#2Xi  *ARRlVI3**|X#«ST0F*#tX#Xt#tX# 'CONVOY* 
Qi2Xi 12#2X# 'TRUCK* #2X# 12*2 X# *FSU*#2Xi  I2i |X»  ' STACK*# 2Xi IliIXi'TlRI*# 
Q2X#F10«4) 

IF<NFT<II#ICC#ISS)«IG.U>GOTQ  30 
IF(NFTtllilCCiXSS)  •6T«0«AND*NGL(IC )»GT*0)GOTQ  10 
C  FIND  NHt  FOR  ANNO  FAD 

C  FIND  IF  OUIUE  EXISTS  AT  FAD  ON  NM6  IS  IUSY 
IF(NOF(IF)»NE*0)GGTQ  20 
NE«NNHFIIF) 

IE*0 
IFIA6-0 
DO  9  IK»1#NE 
IJ-INHF(IFiIK) 

XFIINHI(IJ>.BO.IF>IFLAO«IFLAG*1 
IFCIFLAG.GE.2)C0T0  20 
IHIHHE<SJ>*ffl.O)IE-IJ 
9  CONTINUE 

IF ( IE»E0*0  )GOTO  20 
C  LOAD  TNUCKS  IY  NHE 

CALL  QSTATfAHFSU  #IF#3#0#T> 

CALL  OSTATtAHFSU  iIFiliOiTI 
CALL  QSTATIAHFSU  #IF#2#0#T) 

CALL  GSTATUHHHf  »Xfi»9>0»T| 

CALL  OSTATUHHHE  jliiliOiT) 

CALL  OSTATUHNHE  #IE#2#0#T) 

CALL  TINS! 'LOA-*# 'N/NE  *#1#TI 
IHHE(IE»«IF 
IT8-NTYFUE) 

NTT-NTK (II/ ICC  > 

CALL  ATRKI ATK(X#4)#IT) 

AQ*AGT(II#ICC#I3S) 

CALL  ALODtAQiXU 
!RX«IANHE( ITiXTBiILI 
XF«NFT( I 1# ICC# IS S  ) 

TS«RNORN t IT  IE# 1 ) ♦XF*RNORNI I  RX#X ) 

CALL  COLC(*LDA-*#*S/NH'#TS#T) 

TI-T4TS 

CALL  FLACt 1#TS#10#IC# ISS) 

NGL(XC)*XE 

WRITI(6#S002)XI#1C# IF# IS# NTT# TS 

3002  FORMAT  1 2X#  *NHE*#  2X# 12# 2X# 'LQAD'#2X# *CHECKIR*#2X# I2#2X# • FSU> #2X# 12# 
02  X#  '$TACK'#2X#12#2X»  *  TRUCKS *#2X#  12#  2X# 'CONFUTED  •#  IX#  F 10  «4 ) 

RETURN 
20  CONTINUE 

I F( NIX ( II# ICC# ISS )«NE*0< ANDiNOS ( IC ) »f OtOIOOTO  SO 
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non 


C  ASSI6N  TRUCK!  TO  AMMQ  A  AD  OUIUI 
nxxy-nbp(IP) 

CALL  OSTATUHPSU  #IP#1#NXXY#T) 

CALL  Qe0llHDA«i«'fl/CK'»X6*l»»T»l)  ■ 

NQP(IP)«N0P<IP)*1 

IP-NOP(IF) 

NPCI IF* IP)*IC 
NPS(IF#IP)*ISS 

WRITE(6#3003 )IF#NPC( IF* IP)* IP#NTK( II* ICC )#  NPS( IF*  IP ) 

3003  F0RNAT(2X#  *  L  0  ADI  NO  QUEUE'#2X*  »PSU»#  2X*  12*  2X#  'CHECKER'#  2X*  I2#2X*  •  PL 
QACE* #2X# I2#2X# 'TRUCKS «#2X# 12, 2X#'S TCP'# 2X* 12) 

RETURN 
10  CONTtNUI 

C  LOADERS  MANUALLY  LOAD  TRUCKS 
XN«NLX( XX# ICC# XSSI 
XRaNBXt IX»ICC»ISS) 

RX»RNORN( lRL0AD#l)/60« 

TS«RNORM( ITXL*l)+XB/( XN+RX) 

CALL  CQLC(»LDA-'#'S/L1'*TS#T) 

TS«TS*T 

CALL  PLAC(1#TS»10»IC#ISS) 

WRXTB(l#tOOA)XN*  XC#IP* IS* NTK(II#ICC)#TS 

3004  FORM ATI  XX*  'LOADERS '*2X* F10*4«  2X#  *  LOAD  XNG'#2X*'CHECKER'*2X#I2#2X# *F 
QSU**2X# 12* 2X# ' STACK *#2X* 1 2#2X*' TRUCKS *#2X# 12* 2X# 'COMPLETED'#  2X*F 16 
0.4) 

NGS( I C ) • XN 

RETURN 

END 

SUBROUTINE  ATRK( AC# X ) 

C 

C 

LEVEL  2*  AO 
DIMENSION  ATYPd) 

DATA  ATYP/10H2.ST  #L0H9T  #10H8TG  / 

DATA  NTRK/3/ 

00  10  l«l#NTRK 
IP(AQ*EQ.  ATYPd)  IRE  TURN 
10  CONTINUE 
X-NTRK 
RETURN 
END 

SUBROUTINE  ALOO(AQ*XL) 

C 

CONMON/NMHE/NMHEO* IN HE ( 30 )#NMHF (60 )# INHF (60*  9) # 

QNTYP(30)# IRMHE(9#9#20)#I0KE# ADKE(200) 

IDKEQ"X0KE*1 
00  10  IL*1# IDKEO 
IF( AO. EO.ADKE < IL ) ) RETURN 
10  CONTINUE 
IL-IDKE 
RETURN 
END 

SUBROUTINE  TCIP0(IC#XS5*T> 


CHECKER  COMPLETES  LOADING  SERVICE  AT  AMMO  PAD 

CQHMQN/DEMANO/NS# AT(90 )#AUNXT(9Q)#NT( 90 )# ATK ( 90# 19 ) *  NL( 90# 19  )* 
QAD0D(9O# 19*20) 

COMMON/LOAO/ ATYPI 90*19# 201 fXQTY (90* 19*20) 

COMMON/ STORES/NL IP (90*19)* IPSUf 90# 19# 20 )#1STC( 90*19*20) 

COMMON /STORE L /XL QTY( 90* 19*20) 

COMMON/ SIT  ES/DST (60*60 ) * IASP#NF  SU#NST  ACK(60)# AOODXt 60*20 ) » 
QALOTXI60*20)*XSQTY(60# 20) 

C0NM0N/CHECKER/NG0#NG#NGC(2U)*NGCT (20)#NGT(20) »NGL(20I»NGS (20) 


5 


CONHON/NNHi/NNHEO* INNS  ( 10 )* NNHF (  *0  )* XNHF  (  *0/ 5 ) # 

ONTYF(IO)* IAHHE(9#5*20)# IDKI#ADKI<200) 

CONNON/FAOS/NOF( 60)* NFC (60*100)# NFS (60* 100) 

COHHOH/OfCK/NCK|20l#Nll(20#lO)#NTK(2O*lO)#ITK(2O#lO#5)#NSF(2U#lO)# 
ONES  X (20* 10* 10) #NFT( 20# 10# 10  )#  AOTf 20* 10* 10 )#  NIX ( 20* 10* 10 )#  NLX( 20# 10 
0*10) 

LEVEL  2#  NS 
LEVEL  2*  ATYF 
LK VC L  2 #  NLIF 
LEVEL  t#  UITY 
LBVfL  2#  OST 
LEVEL  2#  NOE 
LEVEL  2#  NCR 

CALL  TXRSI»L0A-*#*N/FS«#-1#T) 

I*N6C(IC) 

II-NOCTUC) 

ICC*N6T(ZC) 

IF1»NFSX( IX*ICC# ISS ) 

J«ITK( II* ICC* 1 ) 

WRITE (6# 1001)  1C* I# J#NOL( IC)#NGS ( IC )* IP1# ISS 
3001  F0RNAT(2X# 'LOADING  C0NFLETE*#2X# 'CHECKER*#2X#I2*2X# »C0NVCY**2X# 12# 
Q2X* ‘FIRST  TRUCK *#2X« I2*2X* *NHE**2X*X3*2X# *LAfeOR  *#2X#II#2X*  *FSU'#2X 
0* I2#2X#*ST0F*#2X*22) 

IF (N FT (IX# ICC#  ISS )»GT«0*AN0«N6L  (10*10  «O)60T0  AO 
IF <N FT (I I# ICC* ISS) *6T»0*ANDiNQL ( IC ) • L T • 20 0 ) G 0 T C  20 
IF(NBX(II#XCC#XSS)«GT*0«ANDtNOS( IC )«EQ«0)00T0  AO 
50  CONTINUE 

IF(NSF(II* ICC) »LE*1SS)OOTQ  10 
C  NEXT  STOF  IS  AN  ANNO  FAQ 

I F2 • NF  S  X ( II* ICC* ISS+1) 

OX ■ OS T( IF 1*1#  XF2+1) 

NTKX*NTK( II# ICC) 

DO  S  ITC«l#NTKX 
JCaITK( II* ICC* XTC) 

CALL  DCOL(  •LDA**#  ,TRVD,#I#JC#DX#T#1) 

S  CONTINUE 
XASX*IASF 

TS-(0X/RN0RN(XASX#1))*60. 

CALL  TCOL ( *LOA*)* ,T/CKI#  XC#TS#T#1) 

TS«TS*T 

CALL  FLAC(l#TS#«#IC#XSS*l) 

NIL  (10*0 
N6SCXO-0 

WRXTK6*  30021IC#  I#<J#ISS«IF1*IF2#DX#TS 
1002  FQRNAT(2X#  *CHECKER*2X* 12*  2 X»* CONVOY* *2X#  X2#2X# 'FIRST  TRUCK'#2X#II# 
02 X# * ST0F*#2X# 12# 2X# *01  FART  FSU**2X# 12*2 X# 'NEXT  FSU*#2X* I2#2X# »DIST 
QANCK'»2X*F10«A#2X#*ARRIVE  **2X«F10« A) 

RETURN 
10  CONTINUE 

C  NEXT  STQF  IS  VEHICLE  ASSENILY  AREA 
DX*DST(IF1A1#NFSUA2) 

NTKX*NTK( IX# ICC) 

00  A  ITC»1#NTKX 
JC*ITK( I 1# ICC#  STC ) 

CALL  DCOL('lDA-*#*TRVO*»I#JC#OX#T#-i) 

A  CONTINUE 
I ASX*I ASF 

TS*(OX/RNORRIIASX#1>)«60« 

CALL  TCOL(*LOA-*#*T/CK«#IC#TS#T#-l) 

TS-TSAT 

CALL  FLACd#  TS  *  1 1  *  IC  *  0 ) 

UR  XT I (6# 1003) IC# I# J# ISS# I  FI# OX# TS 
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3001  PORNATtfS# 'CH|CK|R*#2X#Ii*|l«*CONVOV'#2X#I2#2X# 'FIRST  TRUCP'#2X#I2 

i*ix»uiifii4i«ii«u»t»iNif  vim  asst 

Ml TURN 
20  CONTINUE 
C  LOADING  OONI  IT  RMS 

,  CALL  6STAT«4HPSU  fIFl#3»0«TI 
IHIIUCI 
XP-IHHIUI) 

CALL  QSTATIAMNMI  #XI*3#0«T> 

N6L(IC)*201 

XP(NQP(SFUNE.O)60TO  SO 

C  HHE  QUEUE  INPTV  AND  SET  NHI  PLAG  TO  NON  BUSY 
CALL  QSTAT (4HPSU  #IF#4#0#TI  i 
DO  26  !j«l#NPSU 
IFUF.iQ.UUOTO  26 
NEiNMHP(IJ) 

00  29  ZZC-1# NS  , 

IEEaXNHP(IJ*  HE) 

IF( lEEtl6«IE)GQTQ  2? 

29  CONTINUE 
60  TO  26 

27  CONTINUE 

IP tNQPt IJ) *EQ#OI GOTO  26 
IFLA6*0 

DO  28  IXEal*NE 
IEE*IMHF(  IJ#  HE) 

IF ( INHE  (XEEKEQtU > IFL AG"IFL AG*1 

28  CONTINUE  w 

IF(IFLA6,6E.2)G0TC  26 

IF*I  J 
GOTO  30 
26  CONTINUE 
IHHEdEI-O 

CALL  QSTATUHNHE  #IE#4*0#TI 
CALL  TINS('LDA-**'N/HE'»-liTI 
WRITE (6*3004) IE# IF 

3004  F0AHATI2X#«HHI"#2X#I2#2X#»FAIE  AT  FSU"#2X,I2) 

60  TO  39 

C  NHI  QUEUE  FOR  SERVICE#  I6N0RE  NHI  TRAVEL  TINE  BETWEEN  ASSIGNED 
C  FSU'S 

30  CONTINUE 

CALL  QSTATI4HNHE  #XE#1#0#T) 

CALL  QSTATI4HNHE  #XE#2#0/T) 

XNHEt IE )aIP 

CALL  QSTAT(4HFSU  #XF#2#0/T) 

ICXaNPC( IP>1 ) 

CALL  QC0L<'L0A-'#«Q/CK'#XCX435#T#-1> 

ISSXaNFS ( IF#1) 

ITE-NTYFIIE) 

IX"N6C( ICX ) 

IIX-NGCTUCX) 

ICC  X-NGT ( ICX) 

JXalTKdIX#  ICC X#  1 1 
CALL  ATRK|ATK(IX#JX)» X TX ) 

XPaNPT( IIXjXCCX#  XSSX) 

A6*AQT( IlXflCCX# IS  SX I 
CALL  ALODtAQjXU 
IRX*IRNHE (IT  X#  XTI# IL I 
TS*RN0RN(ITIE#1)*XP*AN0RH(IRX#U 
CALL  CQLC<'LDA-'*'S/HH'#TS/T) 

T$aT*TS 

CALL  PLAC(l#TS»iO#!CX# 233  X) 

NQL (ICX) "IE 
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N«P<lPIM«Ml*l-l 
NCMGMIPI 
irdKillitllS  TO  >7 
00  If  I4*i»«c 

NPeiIP#lJ)*NPCIIP#IJ4ll 

NP*IIF,lJ)*NPSUP,W4l> 

SO  CONTINUE 
»7  CONTINUE 

npc<jp#nc41)*o 

NPS(IP#RC4l)*0 

WRITE! I# 3009 1 IE#  ICX#  IP#ISSX#NTKMI  X#ICCX  )#TS 
3009  PORRAT<IX#  »NHI»#2X#  12#  2X#  HOADING*#  2X#  «CHECK2R*#2X#  Z2#2X#  •  QUEUE  AT 
0  PSU»#2X#12#2X#«ST0P'#2X#I2#2X#*TRUCKS'#2X#I2#2X#*C0NPLETE0»#2X#F1 
00.4) 

39  CONTINUI 

IP<NIX<It#KC#ISS)  *GT .0  .AND  .NGS  ( IO  »Eu.O)  GOTO  40 
00  TO  10 

40  CONTINUE 

CALL  TCRPO<IC#ISS#T) 

RETURN 

CNO 

SUIROUTZNE  OCOl( AQ#AS# I# J#DXT#T# IS  ) 

CONNON/DCOLC/t SD<510)#  OST (510) 

INTEGER  AO, AS  , 

IN*(<l-l>*194j) 

IPdS.LT.OIGOTG  20 
IF<ISD<1H>.OT.OGOTO  10 
ZS0( IN) *1 
OS  T ( IN) *DXT 
RETURN 
10  CONTINUE 
ISD<IH)*1 

OST(IH>*OST<IN140XT 
RETURN 
20  CONTINUI 

CAU  C0LC<AQ#AS#0ST<IN)40XT#T) 

1SD(IN)*0 

RETURN 

ENO 

SUIROUTZNE  TCOL I AQ# AS# IC#TS#T« IS) 

CONNON/TCOLC /ISO ( 90 )#  TSS ( 90 ) 

INTEGER  AQ# AS 
IPIIS.LT. OJGOTO  20 
ZPI ISO! IC ) .GT.O ) GOTO  10 
ISOC ICI«1 
TSS(IO*TS 
RETURN 
10  CONTINUI 
190110*1 

TSS<I0<TSS<I04TS 
RETURN 
20  CONTINUI 

CAU  C0LC<A0#A3#TSS(IO4TS#T) 

ISD<ZO*0 

RETURN 

INO 

SUSROUTINE  QCOL( AQ# AS# I#T# IS ) 

CONNON/QCOLC /TSX ( 100 1 

INTEGER  AQ#  AS 

IP(  1S.LT.OGOTO  20 

TSX<I)*T 

RETURN 
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SO  CONTINUE 

CALL  COLC<AO,AS,T-TSX(l),T) 

IS  TURN 
INS 

SUBROUTINE  TACBA(IC,T) 

C 

C 

C  CHECKS  I  ARRIVES  AT  VEHICLE  ASSEMBLY  AREA 
COMMON/HOAR/DAO, DSO, ICO, ICK 
CQNNQN/COMVOV/NGTO(100),N4T 

COMHON/QEMAND/NS,AT(50),AUNIT(90),NT(50),ATK(90, 15),NL(50, 19), 
04000(50,19/10) 

C  OMNON/LOAO/ ATYP (50, 15,20  >, XOTY  ( 90, 19,  20) 

CONN0M/CHfiCKSR/N«0,N6,N6C(SOI,NBCT(20>,NGT(2O>,NGL(20),N6S(2O) 
COMMON/OPCK/MCK t 20 ),NL I ( 20# 10), NTK 1 20, 10), ITK ( SO, 10, 9 )  ,NS  P ( 20, 10 ) , 
QNPSX(20,10, 10),NPT(20#10, 10)#A0T(20,10,10),NBX (20,10,1G),NLX(20,10 
0,10) 

LEVEL  2,  NS 
LEVEL  2,  ATYP 
LEVEL  2,  NCK 

C  ADD  RETURNED  TRUCK  TO  USER'S  CONVOY 
I*NGC(IC) 

ZI'NRCntC) 

1CC-N6T4  XC ) 

NTKX«NTK(  1 1, ICC ) 

CALL  TIH$('L04-»,'N/TK»,-NTKX,TJ 
CALL  TIHS('ABY-»,'N/TK'»NTKX,T) 

CALL  WCOLC(U0A-','W/CK',ICi70,T,-l) 

XNTKX-NTKX 

CALL  GPLOTX(-XNTKX, T,4) 

CALL  OPLOTX(XNTKX,T,S) 

00  3  IT«1,NTKX 

CALL  WCQLC ( ' ARY-*/ *W/TK',I,T,1) 

3  CONTINUE 

CALL  IAVT(»A8Y-»,'A/CK',T) 

NQTOI I ) aNOTO ( I )t NTK ( I I, ICC ) 

3001  FORMAT ( 2X, 'CHECKER ',2 X, 12,2 X, 1  ARRIVES '/2X, • VEH  ASSY  AREA',2X, 'TIME 
Qa,2X, P10«4,2X, 'CONVOY', 2X, 12, 2 X, 'CHECKER  TO  OPNS  OFF *,2X, F10.4, 2X, 
0* TRUCKS  *,2X, I2,2X, *  ASS  V  AREA  CONVOY', 2X, I3,2X, 'LABORERS', 2X, 13) 

IP(NOTOd)  •LT»NT( I)  I  GOTO  10 

C  CONVOY  COMPLETE  AND  C.Q.  MOVES  TO  OPERATIONS  KITH  CHECKER 
TS>T«(DSO/RNCRM( ICQ,1>  >*60. 

CALL  PLAC(1,TS,12,IC,0) 

WRI TE( 0,3001) I C, T, I,TS,NTK(II/ICCI«N6T0(I)/NLB(II,ICC) 

CALL  PLAC(1,TS,13,I,0) 

WRITEI6, 3002)1, TS 

3002  FORMAT  1 2X, 'CONVOY ',2X, X 2, 2 X, ' C •  0, *,2X, 'ARRIVES  OPNS  0FFICE'2X,F10 
0,4) 

RETURN 
10  CONTINUI 

C  RETURNED  CHECKER  MOVES  TO  OPERATIONS  OFFICE 
TS*T+(DSO/RNORM( I CK , 1 ) ) *  60 • 

CALL  PLAC I 1,TS,12, IC , 0 ) 

WRITE (6, 1001 )IC,T, I,TS,NTK 1 1 1, ICC ) ,NQTQ( X ), NLB (1 1,  ICC ) 

RETURN 

END 

SUBROUTINE  CKSRO(IG,T) 

C 

C 

C  CHECKER  AND  LABORERS  RETURNED  TO  OPERATIONS  OFFICE  LABOR  POOL 

CONMON/CKASE/NCA,NCT(lOO) »NCI (100), NCC (100), NTC 1100), NCTT( 100,5), N 
QLTT(IOO) 

COMMON/CHECKER/NGO,NG, NGC (20),NGCT (20), NOT ( 20) , NGl ( 20), N6S (20 ) 
COMMON/L ABCR/NHO, NHL, IRLOAD 
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*S»  'iffe**.-  '»  -  *  • 

CONNqK/0f«Em*ttbl#NL»<I0*lOf#NTXI|O#iO)*ITK<2O#lO#»I#NSAC2O*lOI» 

ONASXIM*ift#*0MAT(tO»10»lOI#MT<IO»lO#lOI#NIX(2O#lO«lO)«NLXt2O»lO 

2*10) 

um  i#  nett 

C  RELEASE  CHECKERS  AND  LABORERS  TO  LABOR  FOOL 
IlaMICTdC! 

ICC-NOKICI 
NLBXaNll(IS«lC€l 
CALL  ORLOTXIltf T#B) 

XKLBX'NLBX 

CALL  OALOTX(XNL»X»T#9) 

CALL  TINSMLOA**#  *NFCK'#“1#TI 
CALL  TINSI»LOA-*#»N/LB*#-NL»X#T) 

NHk»NHL*Nll<Sl#XCtl 

NO*NO-l 

NDL«NHO*NHL 

HAITI <6# 8Q01)IC»NLB( IX* 1CC)#T* NOiNDL 
SOOl  FORNATtlX# <CHICJtER*«2X#X2«2X#  'ARRIVES  AT  CANS  OFFICE  S2X> 'LABORERS 
O'* 2X/I2«2X* ' TINE  *j2XjF 10* 4«2X# 'CHECKERS  ON  ASS  I0NN|NT'#2X, t2#2X# 
Q'L ABORERS  ON  ASSX0NNENT'«2X«Z2) 

NGC(1CI*0 
NOCK  XC  1*0 
NOT ( XC )a0 
NOUIC  1*0 
NGS(ICI»0 

C  CHECKER  CHECKS  ASSIGNNENT  OUEUE  FOR  RELEASE 
ICal 
NCO-NCA 

9  IFUC.OT.NCAIRETURN 
I*NCT(XC) 

J-NCTTIICd) 

CALL  CASSFUaJaT) 

IF (NCOtGT  *NC A) RETURN 

IC-ICtl 

OOTO  9 

END 

SUBROUTINE  COSAOE I»TI 
C 
C 

COHHON/DUTFUT/NOCaNQOaNOC ( 190) 

COHHON/ATIHE/XTIVaITIAa ITAaITXE aXTXLa  TTBOaXTRQ 
C  START  OUTAROCISSINQ  ON  CONVOY 

CALL  TXMS< 'QFQ-'a 'N/CC 'aIaT 1 
CALL  HCOLCX'OFQ-'a'H/CC'a  I*S9aTa1) 

CALL  GFLQTXII.aTaTI 
HRXTEIAaIOOIIXaT 

1001  AORNAT (IX#  *C0NVQY'a2Xa X2a2Xa *C«  0.  AT  CANS  OFFICE  QUTFRQCESS ING' a2 
QX» ' TINE* aIXaFIOaA) 

IFI NOOtCT «0«OR*N00.6T*0)QOTO  20 
C  OUTAROCESS INC  CLERK  IS  NOT  BUSY 
CALL  9STATI4H0UTC»0a9a0aT ) 

CALL  0STAK4HQUTCa0a1a0aT» 

CALL  0STAT(4H0UTCa0a2a0aT ) 

CALL  HXSTOIO.a7I 
NOO*I 

TSMNORHI  ITRQaI) 

CALL  COLCI'OFO-'a'S/CC'aTSaTI 
TS-KTS 

CALL  ALAC ( 1# TSa14a IaO) 

HRITS (AaIOOSIIaTS 

1002  FQRNATdX* 'CONVOY '»2X#X2«2X* 'OUTAROCESS IN6  STARTIOa  * #2X»  'CONFLE TED 
Q'a2XaF10*4) 

RETURN 
20  CONTINUE 


90 


nno 


■■■■  i  iilM>i..i»  (i  <iir- . .  i f 

C  OUTAROCISSIM oCLIiR  BUSY  WITH  tttMI 
CALL  «S VAT  f AHOUTC#  0#  1# NO*  J  )  — 

XNQQaNQQ 

CUt  NtST0!XMQQ#7) 

CALL  TXNS!»OFO-'#*N/OC«#1*T) 

CALL  QC0LM0F0-«#»G/0C*#X#T»U 

NQQ«NQ0a1 

NOC!NAO)»I 

WAITE (6* 1003) I#NQO 

3001  FORMAT! EX# *CQNVQY'#2X# I2#2X#  *C«  0*  JOINS  QUTAAOCESSING  QUEUE*»2X#‘ 
QALACE'#2X#X2) 

ACTUAN 
IND 

SUBAOUTXNI  COCHA! I#T) 


CONVOY  C.O.COMALETES  SAC  OUT-AAOCBSSING 

COMMON /DEMAND/ NS# AT ( 30)#AUNIT!30)#NT! 30)# ATM  J0#13)»  NL( 90# 19 )# 
QADOD! 50# 19#20) 

COMMON /LOAD/ ATT A (9O#15#2OI#X0TY( 50# 15#  20 ) 

C  OMMON/OUT AUT/NGO# NQO#NOC ( 100 ) 

COMMON/AT I ME/ 1 TI Vi ITIA#ITA#ITX  E# IT IL# IT 10# IT AO 
LEVEL  2#  NS 
LEVEL  2#  ATYA 
CALL  GAL0TX!»1«#  T#  7) 

CALL  AELCV(ItT) 

NTTaNTIXI 

CALL  QSTAT!AM0UTC#0#1#0#T) 

CALL  TIHS!*ABY-'#«N/TM#-NTT#T) 

CALL  TIMS!«CF0-»#‘N/CC«#-1#T) 

CALL  COLC( •ASA«,i •W/CN*#T“AT( I )# T) 

CALL  EAVT!*ASA-*#‘D/CNt#T) 

CALL  TIMS!»aSA-'#»N/CN«#-1#T) 

CALL  TIHS<«ASA-«#'N/TK*#-NTT#T) 

XNTTa-NTT 

CALL  GAL0TX!XNTT#T#1) 

CALL  GAL0TX!XNTT#T#5)a 
CALL  WCOLC  <  *OFQ-># • W/OC*#  1*13# T# »l ) 

CALL  WCOLC!*ABY-*#»W/TM#I#T#-i) 

C  DECABASE  CONVOYS  AT  ASA  BY  ONE  RELEASED 
NS-NS-1 

CALL  GALGTX!-1.#T#2) 

C  CHECK  POA  OUT-AAOCESSXNG  CLEAK  QUEUE 
WRITE! A# 1001) I# T# NS 

3001  ADAM AT  1 2X#  'CONVOY* #2X# 12# 2X# 'RELEASE0'#2X» 'TIME *#2X#F 10*4# 2X# 'CONV 
QOYS  REMAINING  IN  ASA«#2X#I3) 

IFINQQ.NE.OGOTQ  10 

C  QUEUE  NOT  EXIST  AND  SET  CLERK  FLAG  TO  NOT  BUSY 
CALL  QSTAT(4H0UTC#0#4#0#T) 

NGOO 

WRITE! A# 3002) 

1002  FORMAT (2 X# 'OUTAROCESSING  CLERK  FREE*) 

RETURN 
10  CONTINUE 

C  QUEUE  EXISTS#  ASSIGN  SERVICE  TO  NEXT  CONVOY  C.O. 

CALL  Q1TAT !AM0UTC#0#2»Q#T) 

CALL  TINS!»CFO-'#«N/OC'#-i#T) 

NGO-NOC(l) 

XO«NGO 

CALL  QCOL! *OFO-»# <G/0C'#I0#T#-1) 

TSaRNORMI ITRO# 1 ) 

CALL  COLC!*OFQ-*#«S/CC«#TS#T) 

TSaT#TS 


91 


CALL  10*0)  ~ 

WRIT t I i# ttftlltf Tt 

loos  fpiiiit(ii>iiiawTi»ix»iifti«i«iTNoeitsiii(  conplitio'*2x,fio.a) 
C  NOVI  CLINK  OUIUI  UN  ONI  POSITION 
NOO*NQO-1  —  - 

IF(NQO*IRtO)IOTO  21 
DO  SO  II«I»NU 
NQC<m«NOC(II*l> 

SO  CONTINUI  - 
21  CONTINUI 
NOC(NOO«1)*0 
RETURN 
INO 

SUBROUTINE  NfilCV(!«T) 


COHHON/UNITS/NUN!T*ATJTLII20)*DGO(20)*DRTN(20 )* IRSR* ILSF 
COHHON/DENAND/NS*  AT(90)*AUNIT(f0)*NTf  90)*  ATM50* 19)*NL(50* 15 ) > 
QADODt 50*11*20) 

C0NNQN/LQAD/ATYP(5O*19*20)*XQTYt90*19i20) 

LIViL  2#  NS 
LEVEL  It  ATVP 
00  10  II-1*NUNIT 

INI ATITLEI III •EO«AUNITtI) )60T0  10 
10  CONTINUE 

WRITE(6*3001)I*T 

3001  F0RHATC2X*»IRR0R'*2X* 'RETURNING  CONVOY  TO  UNIT'*2X*F10.A) 

RETURN 

20  CONTINUE 

TS«T+<DRTNMI)/RN0RM<IRSP*1))*A0. 

CALL  PLAC(1*TS*19* 1*0) 

WRITE 1 6* 3QQ2) I*T* ATITLE( XI )*DRTNt I 1)# TS 

3002  F0RHATI2X* 'CONVOY **2X« 12* 2X* 'DEPARTING  ASP'*2X*F10.A*2X» 'ARRIVES'* 
Q2X* A10*2X* ' DISTANCE '*2X*F10«4*2X* ' TINE  **2X*F10t4) 

RETURN 

END 

SUBROUTINE  NISC(I*T) 

COMH0N/DENAND/NS»AT(9O)* AUNIT(50J*NT( 50)*  ATM 50*19) «NL( 90*19)* 
QAD0D(9O*19*20) 

LEVEL  2*  NS 

WRITE (6*3001)I*AUNITI I )*T 

3001  P0RNAT(2X*  *  CONVOY'* 2 X* 12* 2 X* 'ARRIVES* *2X*A10*2X* 'TIME*»2X*F10«4) 
RETURN 
END 

SUBROUTINE  TINS(A«»AS#NX*T) 

COMNON/TAVE/NUT*  NUN (20 )*  AUN(20*  2) 

INTEGER  AO* AS* AUN 
DO  10  IX«1*NUT 

IP( A0«KG*AUN(IX*1I tAND«AS*IO«AUNI IX*2 ) I GOTO  20 
10  CONTINUE 

WR1TII4*300Q)A0*AS*NX»T 

3000  FORMAT ( 2X* 'TINS  CALL  CRR0R'*2W*2A4*2X*X3*2X*F10*4) 

RETURN 
20  CONTINUE 

NUNC  1XMNUNI IX  l*NX 
XX"NUN( IX ) 

CALL  TIMST(XX*T* IX) 

RETURN 

END 

SUBROUTINE  WCOLC C AG* AS* I*T* IFLAG) 

CONMON/WCOL/LAGt 100)*LASt 100)*NNE I 100) *T1 1(100*50) 
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nnn 


INTEGER  * 


IFUmMR.At.ND.LASUMG.AnGBTOif 
lP(IPWA4«Llr0)4ETURN  -  - 

C  START  MM  Mil 
6  CONTINUE 
IAQ< I)*AQ 

LAS! I)*AS  . - 

NMI( !)•! 

TXS(X»1>«T 

RETURN 

C  ADO  TO  EXISTING  RILE 

19  CONTINUE 
ZF(IPLAG«ll*OlfO?Q  10 
IRN-NNIIXMl 
TZE(Z#ZRN!«T 

NHE( 1 1 ■ ZKN 
RETURN 

C  DUMP  RILE  TO  CCLCT 

20  CONTINUE 
IRN*NNE( I) 

IR (I RN»|G*0) RETURN 
00  29  tMl#IAN 

CALL  COlC(AQ»AS#T-TlE<I«XR}«n 
29  CONTINUE 
LAOI I  )»C 
LAS(I)«0 
NHE I S)«0 
RETURN 
END 

SUBROUTINE  COLC! A8#AS#XX#T) 

COMMON/ SAVE /NUT# ANN(25I# ISH(29I#AUM!29#2) 

INTEGER  AG#AS#  AUM 
DO  10  IX-1#NUT 

IF{AQ«E0«AUN(IX#1) •ANO«AS«EQ*AUH( IX#2I IGQTO  20 
10  CONTINUE 

WRITE!t#1000)AQ#  AS#XX#T 

1000  F0RMAT|2X#*C0LC  CALL  ERRQR*#2X#2AA#2X#2!F10(A#2Xn 
RETURN 
20  CONTINUE 

CALL  COLCTCXX# IX ) 

RETURN 

END 

SUBROUTINE  RE0R0(LI#T) 


REORDER  STOCK  AT  REOROER  POINT 

COMMQN/STQCKS/NSL# AD0DC(200)#XLI0( 200)#XLIR(200)#NLIF(200) 

Q#  XL  BRD ( 200 I #  XRDB  X I 200 I  #  XB  XPL  ( 200 1 
C  AVERAGE  TINE  BETWEEN  REORDER  AND  ARRIVAL  OP  SHIPMENT 
COMMON/ REORO/ITRO 
C  REOROER  STOCK  LEVEL 
DATA  XOO/BOt/ 

NL IFf LI ) -1 

TS-TaRN0RM!XTR0#1I 

JOO-XQO 

CALL  PLAC(1#T$#16#LI# JOQ) 

WRITE  16# 1001 )L I# ADODC (LI)#XLIQILI)#T#TS#XQO 
9001  FORMAT! 2X# «STOCK  LINE»#2X# X2#2X#«XTEN># 2X# A10#2X# *AT*#2X#F10(A#2X# 
0 1  REORDERED *# 2X# 'TIME'# 2X# F10«A#2X# *FXLIED*#2X#F10(A#2X»*WITH*#2X#F 
010«A) 

RETURN 


c 

c 


SUBROUTING  SUPPl(LI#JQ> 


CONNON/ITOCIS/NSL#ADOOe<200)#XLlO(200)#XLIR<200)#NLIF<200) 
fliXLIROklMtiUMXIlMliIimUM) 

C0MMQN/SXTES/DST(6O#AO)#X ASPpNPSU# NSTACM60)#  A0QDX(6O#2O)# 
QAL0TX(A0#2Q>#XSQTY(*O#2O) 

LEVEL  2#  OST 

C  ASSUMPTION!  RUUmV  HAS  NO  EPFICT  ON  OXSTRXIUTIQN  PROCESS 
XJQ-JQ 

xlioili)«xiio<li)axjo 

NLIMLXI-0 

AO-AOOOC(LI) 

00  10  I«1#NPSU 
NS«NSTACK(I ) 

DO  10  J'1#NS 

XP(AQ.EQ*AOOOX(I#J))GOTO  20 
10  CONTINUE 

WRITE (A# 3001 )LI#XJQ 

3001  FORMAT! 2 X#  ' ERROR '# 2X» 'REF  ILL *#2X# * STOCK  LXNE'#2X# X2#2X# 'QTV'#2X,F1 
00*41 

RETURN 
20  CONTINUE 

XSQTYI  I#  J)>X$QTY(X#<))+XJQ 

WRITE (6#  3002XLI# AOODCI  Lit#  X<JQ#XLIQ(LI  >#  I# J#XSQTY( I# J  X 

3002  F0RMAT(2X# 'REFILL  CQNRLETE0'#2X#'ST0CK  LXNE'#2X#I2#2X#'ITEM*#2X#A1 
Q0#2X# 'QTY'#2X#F10*4#2X#  *ST0CKAGE'#2X#  F10*4#2X# 'AT  FSU'#2X#X2#2X# 'S 
QTACK'#2X# I2#2X# 'STOCK AGE ' #  2X#P10*4) 

RETURN 

ENO 

SUIROUTINE  QSTAT (AQ# IQQ# XV#NO#T I 

COMMON/S TAT/NQS# AOS (200)* NS (200 )#NSQ( 200)#  TSS (200 X#  TES ( 2001# 
QXQS(200)#TSD(200)#TED(200)#TSW(200)#TEW(200) 

LEVEL  2#  NOS 
DO  10  IQ»1#NQS 

IF( AQ*EQ* AQS ( IQ) *AND*1QQ*EQ* IQS (IQ) X60T0  20 
10  CONTINUE 
RETURN 
20  CONTINUE 

QOTO( 101#102#103#104# 109 )»XV 
C  CUSTOMER  ENTERS  WAITING  QUEUE 

101  CONTINUE 
NS(IQ)"NS(IQ)tl 
NSQ(IQ)*NSQ( XQ)+NQ 
TSW(IQ)«TSW(IQ)#T 
RETURN 

C  CUSTOMER  ENTERS  SERVICE  FACILITY 

102  CONTINUE 
TEW(IQ)-TEW(IQ)AT 
TSS ( IQ)>TSS( IQ  )#T 
RETURN 

C  CUSTOMER  LEAVES  SERVICE  FACILITY 

103  CONTINUE 
TES(IQ)*TES(1Q)+T 
RETURN 

C  SERVICE  FACILITY  START  IDLE  PERIOD 

104  CONTINUE 
TS0UQ)-TS0(IQ)4T 
RETURN 

C  SERVICE  FACILITY  ENDS  IDLE  PERIOD 
109  CONTINUE 

TED( 10) »TED( IQ)+T 

RETURN 

ENO 
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common/I^Ii/ata  ii  <  if  i#  nwt#  m*$  npkioo># ml  e  uoo  »#  msto  p#  ncror  #  n 

9M&fs§#IWIAR?i»IIIIA?®#NNPIi#IIR#Wi0T#RII?Rl#MPRNT#PPARH(2OO#4  l#TN0W# 
9TTMI#TTCLR#TTPXN#TTRII(Si)#TTSST . 

C0NM0N/ITAT/ll«i#A0SII00l»IIIWIO0l#NSGIIOO>*.TSSt200l#TESC200)# 
9XOS(206)#TSD(200)#  t|0(200l#Tt1HI09)#TEW(200l 
LIVIL  2#  ATRIA 
LEVEL  ,ti  N9S 
TN«TNOW-TT»«G 
WRXTE(A#1000) 

1000  FORMAT (*X#«OUEUE  SUMMARY  TA»LI«/2X#«PACHITY»#2X#  *AVE  OUIUE'# 
Q2X# 1  AYE  WAIT  *#2X#« AVE  SERVICS*#1X#«FRACTI0N  X OL E * ) 

DO  10  1«1#N9S 
XN9>NNS(X) 

XP(XN9.LE«0«)XN0"1. 

XOL-NSG(X) 

A9L*XQL/XN9 
C  AVERA9E  WAIT  TIME 

TW«TEWCI>-TSWm 

ATW'TW/XNG 

C  AVERASE  SERVICE  TIME 
TS»Tfi*t<>-TSSm 
ATS-TS/XNQ 

C  FRACTIONAL  IDLE  TIME 

T!D(I)a?IO(!)+TNQW 
TO-TEOU)-TSO(  I> 

PTD-TD/TM 

C  WRITE  OUT  RESULTS 

IF(I9Sm«E9«OI6QTa  9 

WRITE(6#1QQ1)A9S(II#I9S(II#AQL# ATW# ATS#FTD 

1001  PORMATIIX# A4#X2#4X#4(P10.4»2X) ) 

90  TO  10 

9  CONTINUE 

VRITfi(4#100t)AQ$( X)# AGL#ATW# ATS#FTD 

1002  FORMAT (2X#A4#6X# 4(F10.4#2Xt ) 


1  19  7  100222200220201 

1  1000  4  110000 


10  CONTINUE 
RETURN 
END 

SNYTH--ASP  1 

200 


1 

111  0.  3000*  1  1000 

C  ASF  NO.  206#  OTO.  3/3/79 

C  DISTANCES  FROM  HOLDING  AND  ASSEM1LY  AREAS  TO  OPERATIONS  OFFICE 

1.  1. 

1  2 


19. 

1. 

18. 

12. 

4. 

0. 

9. 

3  • 

SAFETY  INSPECTORS#  LABORERS# 

9  23  22 

AND  CHECKERS 

ASSIGNED  TO  INPROCESSING 

AVERAGE  SERVICE 

TIMES  FOR 

VARIOUS  STAGES 

OP  INPROCESSING 

9  6  7 

9  9 

10 

11 

9. 

1. 

7. 

1. 

2. 

0. 

10. 

0. 

•2 

0. 

10. 

0. 

•  71 

0. 

10. 

0. 

6. 

0. 

10. 

0. 

1. 

0. 

10. 

0. 

7. 

9. 

10*. 

0. 

e  t  Toe  mm  immmatiom 
ut 


MM 

*■  *  -*• 

10* 

90* 

710. 

69120 

A071 

10. 

10. 

1680. 

80660 

All? 

10. 

• 

Alll 

10. 

so! 

800. 

18600 

A169 

10. 

'  • 

• 

A600 

10. 

2600. 

A679 

10. 

1200. 

\ 

ASM 

10. 

t 

. 

ash 

10* 

•0. 

200. 

9600 

A977 

10. 

10. 

200. 

9600 

AMI 

10. 

100. 

226. 

8066 

AM9 

10. 

70. 

170. 

8160 

A6IS 

10. 

100. 

100. 

30QQ 

A79I 

10. 

100. 

100. 

1000 

IMA 

•  10. 

59. 

72. 

2992 

•171 

10. 

. 

MSI 

10. 

. 

cits 

10. 

. 

. 

CHS 

10. 

. 

. 

C226 

10. 

60* 

3. 

96 

C2S0 

10. 

. 

. 

• 

C2M 

10. 

so. 

3. 

108 

Cl  96 

10. 

90. 

3, 

108 

C276 

10. 

60. 

S. 

63 

C2I2 

10. 

60. 

2. 

96 

C610 

10. 

60. 

6. 

180 

C629 

10. 

. 

. 

CIOS 

10. 

ISO. 

2. 

30 

CIO! 

10. 

ISO. 

2. 

30 

C912 

10, 

ISO. 

2. 

30 

cut 

■  10. 

130. 

2. 

30 

cut 

10. 

160. 

2 . 

30 

C706 

10. 

80. 

2. 

60 

C709 

10. 

80. 

2. 

60 

C706 

10. 

80. 

2. 

60 

C70i 

10. 

80. 

2. 

60 

0361 

10. 

120. 

1. 

16 

DIU 

10. 

100. 

1. 

9 

osto 

10. 

100. 

1. 

9 

DIOS 

10. 

• 

0509 

10. 

106. 

1. 

8 

0906 

10. 

106. 

1. 

8 

0916 

10. 
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